Числа вводятся пока не ввели ноль. Найти наименьшее среди вводимых чисел
Программа на Паскале, пожалуйста
Очень срочно, 50 баллов

var

a,min:integer;

begin

 readln(a);

 if a=0 then

   begin

     writeln('Error');

     exit;

   end

     else  

       begin

         min:=a;

         repeat  

           if min>a then

             min:=a;

           readln(a);

         until a=0;

         writeln('Min: ',min);

       end;

end.