найти меньшее из чисел введённых с клавиатуры количество чисел не известно,

program raf105;

var a, min: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы окончить введите 0');

min:= 10000;

readln(a);

while alt;gt;0 do

begin

 if alt;min

   then min:= a;

 readln(a);

end;

writeln('Меньшее: ',min);

end.

Язык PascalABC