Achar o menor e maior número

program achamaioremenor;

   var

     numero:integer;

     maior:integer;

     menor:integer;

begin

  write('Forneca um valor');

  readln(numero);

  writeln(numero);

  maior:=numero;

  menor:=numero;

  while (numero>0) do

     begin

       if numero>maior then

          maior:=numero;

       if numero

          menor:=numero;

       write('Forneca outro valor ou 0 para parar:');

       readln(numero);

     end;

  writeln('O maior valor e:', maior);

  writeln('O menor valor e:', menor);

end.