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

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