Вывод элементов из множества - Pascal ABC

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

Имеется текстовый файл с 30 фамилиями. Как вывести на экран только 20?

Решение задачи: «Вывод элементов из множества»

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

assign(f,'familii.txt');//файл в папке с программмой
reset(f);
i:=0;
while not eof(f)and (i<20) then
 begin
  readln(f,s);
  writeln(s);
  i:=i+1;
 end;
close(f);

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

В данном коде происходит чтение и вывод 20 элементов из файла 'familii.txt'.

Строка assign(f,'familii.txt'); задает имя файла для чтения и записи.
Строка reset(f); сбрасывает счетчик строк в файле.
Переменная i инициализируется значением 0.
Цикл while not eof(f) and (i<20) выполняется до тех пор, пока файл не будет прочитан полностью или в нем не останется менее 20 элементов.
Внутри цикла вызывается функция readln(f,s), которая читает следующую строку из файла и сохраняет ее в переменной s.
Затем вызывается функция writeln(s), которая выводит значение переменной s.
Переменная i инкрементируется на 1.
После завершения цикла вызывается функция close(f), которая закрывает файл.