Найти самую раннюю дату - Pascal ABC

type
  tdate = record
    day, month, year: integer;
    str: string;
  end;
var
  date, min: tdate;
  s: string;
function cmp(a, b: tdate): boolean;
begin
  cmp := (a.year < b.year) or (a.year = b.year) and (a.month < b.month) or (a.year = b.year) and (a.month = b.month) and (a.day < b.day);
end;
begin
  writeln('Введите даты, для окончания ввода введите CTRL+Z');
  repeat
    readln(s);
    date.str := s;
    date.day := strtoint(copy(s, 1, pos('.', s) - 1));
    delete(s, 1, pos('.', s));
    date.month := strtoint(copy(s, 1, pos('.', s) - 1));
    delete(s, 1, pos('.', s));
    date.year := strtoint(s);
    if (min.str = '') or cmp(date, min) then min := date;
  until eof;
  writeln('Самая ранняя дата: ', min.str);
end.