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

Пасибо )!

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

// PascalABC.NET 3.2, сборка 1399 от 08.03.2017// Внимание! Если программа не работает, обновите версию!begin  WriteAllText('output.txt',ReadAllText('input.txt').ToReals.Min.ToString)end.Файлы для контрольного примера даны во вложениях.