Определить количество пустых строк в текстовом файле - Pascal

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

1)Дан текстовый файл. Определить количество пустых строк в файле.

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

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

var
  f: text;
  count: integer;
  s: string;
 
begin  
  assign(f, '1.txt');
  reset(f);   
  while not EoF(f) do
  begin
    readln(f,s);
    if s ='' then count:=count+1;
  end;  
  writeln('Количество пустых строк в файле = ',count,'.');  
end.

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

Переменная f инициализируется значением '1.txt', что означает, что файл, с которым мы будем работать, называется '1.txt'.
Переменная count инициализируется значением 0, которое будет увеличиваться каждый раз, когда мы находим пустую строку.
Переменная s инициализируется значением '', что означает, что строка пустая.
В операторе while мы проверяем, не достигнут ли конец файла (EoF(f)), если нет, то мы читаем следующую строку из файла в переменную s с помощью функции readln(f,s).
Затем мы проверяем, является ли строка пустой (if s = '' then count := count + 1;), и если это так, увеличиваем значение переменной count на единицу.
Когда мы находим пустую строку, мы выводим сообщение 'Количество пустых строк в файле = ', за которым следует значение переменной count, а затем закрывающая кавычка.
Оператор end завершает блок кода, который начинается с оператора while.