Программа будет работать, если каждая дата записана в отдельной строке, причем число, месяц и год отделяются пробелом
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 end;
Close(f);
writeln('min=',min);
end.