Файл записей содержит различные даты. Найти самую позднюю дату

uses
    SysUtils, Classes;
 
var
    DateList: TStringList; // Динамический массив строк
    i: integer;
    DateMax: TDateTime; // Максимальная дата
 
begin
    DateList := TStringList.Create(); // Создаём TStringList
    DateList.LoadFromFile('input.txt'); // Загружаем в переменную DateList строки из файла 'input.txt'
    DateMax := StrToDate(DateList[0]); // Чтобы в дальнейшем сравнивать даты
    for i := 1 to DateList.Count - 1 do // Цикл от 1, т.к. в предыдущей строке мы присвоили переменной DateMax значение первой строки и не нужно сранивать его с ним же.
        begin
            if StrToDate(DateList[i]) > DateMax then // Если дата на текущей строке больше текущей максимальной даты 
                DateMax := StrToDate(DateList[i]); // ... сменить текущую максимальную дату
        end;
    writeLn(DateToStr(DateMax)); // вывести максимальную дату
    DateList.Free();
end.

 uses
    SysUtils, Classes, Math;
 
var
    i: integer;
    DateList: TStringList;
    
function Gen(): string;
begin
    Gen := DateToStr(EncodeDate(RandomRange(1980, 2006), RandomRange(1, 12), RandomRange(1,28))); // Генерация даты
end;
 
begin
    Randomize; // Чтобы числа не повторялись
    DateList := TStringList.Create();
    for i := 1 to 20 do // да хоть до high(integer)
        DateList.Add(Gen()); // Добавляем сгенерированную дату
    DateList.SaveToFile('input.txt'); // Сохраняем всё в файл
    DateList.Free();
end.