Question

Дан файл, содержащий различные даты. Каждая дата — это
число, месяц и год. Найти год с наименьшим номером. Паскаль

Answer 1

Программа будет работать, если каждая дата записана в отдельной строке, причем число, месяц и год отделяются пробелом
var f:text;
    d,m,y,min:integer;
begin
Assign(f,'date.txt');
Reset(f);
min:=9999;
while not eof(f) do
 begin
 readln(f,d,m,y);
 if y<min then min:=y;
 end;
Close(f);
writeln('min=',min);
end.