{* Количество пустых строк в файле *}

Unit TEXTF1;
Interface
Implementation
Begin
 writeln('Программа подсчитывает количество пустых строк в текстовом файле');
End.

Program TextF1;

Uses TextF1.pas; {* Эту строку можно удалить *}
{Задача.Написать программу, которая подсчитывает количество          пустых строк в текстовом файле.}
Uses Crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  f      : text;
  stroka : String;
  put    : String;
  summa  : integer;
  a      : integer;
Begin
  ClrScr; {* Очистка экрана *}
  Summa := 0;
  Writeln('Введите полный путь файла, который нужно открыть');
  Write(' -> ');
  Readln(put);
  Assign(f, put); {проверка на наличие файла на диске}
  {$I - }
  Reset(f); {$I + }
  If IOResult0 Then
    Writeln('Файл не найден!')
  Else Begin
    While Not(EOF(f)) Do {если ещё не конец файла,}
    Begin
      Readln(f, stroka);
      If stroka = ''             {если есть пустая строка - увеличивает счётчик на 1} Then
        Inc(summa); {* Прибавим к summa единицу *}
    End;
  Write('В этом файле ', summa : 3, ' пустых строк!');
  Close(f); {закрываем файл}
End;
  ReadKey; {задержка экрана}
  End......