Задача с использованием структуры «файл»

// Файл должен содержать даты в формате принятом системой.
// К примеру, вот такие данные будут считаться корректными:
//  5.01.2013
//  03.12.2014
//  21.12.2012
//  1 марта 1999 г.
const
  fName = 'dates.dat';
  
begin
  var Now := System.DateTime.Today;
  var maxD := System.DateTime.MinValue;
 
  foreach var S : String in ReadAllLines(fName) do
    begin
      var D := System.DateTime.Parse(S);
      if maxD < D then maxD := D;
      
      WriteLn(D.ToShortDateString);
    end;
  var D1 : System.DateTime := (Now.CompareTo(maxD) = 1 ? Now : maxD);
  var D2 : System.DateTime := (Now.CompareTo(maxD) = 1 ? maxD : Now);
  var months := 12 * (D1.Year - D2.Year) + (D1.Month - D2.Month);
  var days : Integer;
  if D1.Day < D2.Day then
    begin
      months -= 1;
      days := System.DateTime.DaysInMonth(D2.Year, D2.Month) - D2.Day + D1.Day;
    end
  else
    days := D1.Day - D2.Day;
  WriteLn('Самая поздняя дата из файла: ', maxD.ToShortDateString);
  WriteLnFormat('Она отличается от сегодняшней даты на: {0} лет, {1} месяцев, {2} дней',
  months div 12, months mod 12, days);
  WriteLn('Сегодняшняя дата: ', Now.ToShortDateString);
end.