Написать программку ввода целых чисел с клавиатуры ,пока не будет введён

с клавиатуры вводится число a, до тех пор, пока не будет введен 0. Начальное введенное a записывается в min  и max, чтобы позже в цикле было с чем сопоставлять
var
min,max,a:real;
begin
   readln(a);
   min:=a;max:=a;
    while alt;gt;0 do
        begin
             readln(a);
                 if agt;max then
                     max:=a;
                 if alt;min then
                      min:=a;
         end;
writeln('min: ',min,'  max: ',max);
end.