Maior número

program FORINO;
uses crt;
var
   x, y, maior: real;
begin
     repeat
           writeln ('Digite um valor: ');
           readln (x);
           maior:= x;

           if x > maior then
             maior := x;

             writeln ('Deseja continuar?');
             writeln ('1 - Sim, 0 - Nao');
             readln (y);
     until y = 0;
     clrscr;
     writeln ('O maior valor é: ', maior :0:2);
     readln ();
end.