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

Программа будет работать, если каждая дата записана в отдельной строке, причем число, месяц и год отделяются пробелом 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