Получить из текстового файла массив записей, содержащих цельную информацию об абоненте - Turbo Pascal

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

Дан текстовый файл, содержащий 3*n строк. Первые N строк - это список ФИО, следующие N строк - соответствующие адреса, последние N строк - соответствующие им телефоны. Получить из файла массив записей, содержащих цельную информацию об абоненте - ФИО, номер телефона, адрес.

Решение задачи: «Получить из текстового файла массив записей, содержащих цельную информацию об абоненте»

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

Program MyProgram;
 
Type
  tAbon = record
    FIO, Addres, Number:string;
  end;
 
var
  Abonents: array  of tAbon;
  MyFile: Text;
  str: string;
  N, i:Integer;
 
begin
   Assign(MyFile, 'Путь_к_Вашему_файлу');
   Reset(MyFile);
   N:=0;
   while not eof(MyFile) do
   begin
       Readln(MyFile, str);
       inc(N);
   end;
  Close(MyFile);
   N:= N div 3;
   SetLength(Abonents, N);
   Reset(MyFile);
   while not eof(MyFile) do
   begin
    for i := 0 to N-1 do
     begin
        Readln(MyFile, str);
        Abonents[i].FIO:=str;
     end;
    for i := 0 to N-1 do
     begin
        Readln(MyFile, str);
        Abonents[i].Addres:=str;
     end;
     for i := 0 to N-1 do
     begin
        Readln(MyFile, str);
        Abonents[i].Number:=str;
     end;
   end;
   Close(MyFile);
   for I := 0 to N-1 do
     begin
       Writeln('Фамилия, имя, отчество: ', Abonents[i].FIO);
       Writeln('Адрес: ', Abonents[i].Addres);
       Writeln('Номер телефона: ', Abonents[i].Number);
       Writeln;
     end;
   Readln;
 
end.

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

Создается тип записи tAbon, который содержит поля FIO, Addres, Number типа string.
Объявляется массив Abonents типа tAbon.
Открывается файл MyFile с помощью функции Assign и указывается путь к файлу.
Файл считывается с помощью функции Reset до конца.
Переменная N инициализируется нулем.
В цикле while с помощью функции Readln считываются строки из файла и увеличивается значение переменной N.
Файл закрывается с помощью функции Close.
Переменная N делится на три с помощью оператора div, чтобы получить количество записей в файле.
Массив Abonents удлиняется с помощью функции SetLength до количества записей в файле.
Файл снова открывается с помощью функции Reset.
В цикле while в цикле for три раза считываются строки из файла и записываются в соответствующие поля массива Abonents.
Файл закрывается с помощью функции Close.
В цикле for выводятся значения полей массива Abonents на экран.
Программа ожидает ввода с помощью функции Readln.