Achar o maior número

program achamaior;

var
    numero:integer;
    maior:integer;

begin
     write('Forneca um valor');
     readln(numero);
     writeln(numero);
     maior:=0;
     while (numero>0) do
            begin
                  if numero>maior then
                        maior:=numero;
                        write('Forneca outro valor ou 0 para parar:');
                        readln(numero);
            end;

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

end.