Напечатать все элементы файла, в котором записаны отдельные слова - Pascal

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

Напечатать все элементы файла, в котором записаны отдельные слова. Известно, что в существующем файле записаны 12 слов.

Решение задачи: «Напечатать все элементы файла, в котором записаны отдельные слова»

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

nazv:array[1..12] of string[20];
F:text;
begin
Assign(F, 'Название.txt'); {Название файла}
     Reset(F);                  {Открытие файла}
     for i:=1 to 12 do
     begin
     Readln(F,nazv[i]);       {Чтение массива названий/слов/элементов}
     end;
     close(F);
for i:=1 to 12 do
begin
 writeln(nazv[i]);      {Их вывод}
end;
end.

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

Объявлен массив nazv типа string с размерностью [1..12].
Объявлена переменная F типа text.
В строке с номером 5 открывается файл с названием Название.txt с помощью функции Assign.
В строке с номером 6 файл открывается для чтения с помощью функции Reset.
В цикле с номером 7 происходит чтение файла и заполнение массива nazv с помощью функции Readln.
В строке с номером 14 файл закрывается с помощью функции Close.
В цикле с номером 15 происходит вывод элементов массива nazv с помощью функции Writeln.