Файлы записей. Найти самую позднюю дату - Turbo Pascal

Формулировка задачи:

составить программы с помощью которых: -сформировать файл из записей, содержащих различные даты -найти самую позднюю дату.

Решение задачи: «Файлы записей. Найти самую позднюю дату»

Листинг программы

Type Data=Record
     Day:1..31;
     Month:1..12;
     Year:integer;
     End;
Var f:file of data;
    st:data;
    i,n:integer;
Begin
    write('Введите кол-во дат для ввода: ');readln(n);
    Assign(f,'a.dat');Rewrite(f);
    For i:=1 to n do
     Begin
      writeln('Введите ',i,'-ю дату: ');
      write('День: ');readln(st.Day);
      write('Месяц: ');readln(st.Month);
      write('Год: ');readln(st.Year);
      write(f,st);
     End;
    writeln('Формирование файла звершено!');
    Close(f);
    readln;
End.

Объяснение кода листинга программы

В начале кода объявляются переменные типа Data, f, st, i и n.
Затем происходит чтение из пользовательского ввода количества дат для ввода (переменная n).
Задается имя файла a.dat и происходит перенаправление в него с помощью команды Assign.
Далее идет цикл For, который выполняется от 1 до n.
Внутри цикла выводится запрос на ввод дня, месяца и года для каждой даты.
Введенные данные записываются в переменную st.
Записанные данные записываются в файл с помощью команды write(f,st).
После завершения цикла выводится сообщение о завершении формирования файла.
Файл закрывается с помощью команды Close(f).
Выполняется чтение из пользовательского ввода с помощью команды readln.