В файле input.txt записаны в строку отдельные числа, Как узнать сколько их - неизвестно. Вывести в выходной файл output.txt самое меньшее из них.

var a,min:integer;
begin
assign (input, 'input.txt'); reset (input);
assign (output, 'output.txt'); rewrite (output);
min:=32767;
while (not Eof(input)) do
begin
 readln(input,a);
 if (a <=min)
 then
  min:=a;
end;
writeln(output,min);
end.