Определить, сколько раз встречается строка текста в текстовом файле - Turbo Pascal

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

Задана строка текста. Определить, сколько раз встречается эта строка текста в текстовом файле.

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

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

Uses crt;
Var f:text; s,p:string; k:integer;
Begin
ClrScr; Write('Input string:'); Readln(p); k:=0; {ввод строки}
Assign(f,'C:/f.txt'); Reset(f);                  {открываем файл}
While not EOF(f) do                              {чтение до конца файла}
 Begin
  Readln(f,s);             {читаем строку}
  If s=p then inc(k);      {сравниваем}
 End;
Write('kol-vo:',k);        {выводим кол-во}
Readln;
End.

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

В начале кода используются библиотеки crt и text.
Объявляются переменные f, s, p и k, которые будут использоваться в программе.
Переменная f инициализируется значением 'C:/f.txt', что означает, что файл будет открыт в директории 'C:/f.txt'.
Переменная s инициализируется значением, которое будет считываться из файла.
Переменная p инициализируется значением, которое будет введено пользователем.
Переменная k инициализируется значением 0, которое будет использоваться для подсчета количества вхождений строки.
Пользователю предлагается ввести строку для поиска.
Файл открывается с помощью функции Assign и Reset.
Запускается цикл While, который будет выполняться до тех пор, пока не будет достигнут конец файла.
Внутри цикла считывается строка из файла с помощью функции Readln.
Строка сравнивается со значением переменной p с помощью оператора If. Если строки совпадают, то значение переменной k увеличивается на 1.
После завершения цикла файл закрывается с помощью функции Close.
Выводится количество вхождений строки с помощью функции Write.
Вызывается функция Readln для завершения ввода.