Подсчитать, сколько раз в файле встречается указанное слово - Turbo Pascal

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

Напишите программу, которая считывает тестовый файл и подсчитывает, сколько раз в этом файле встречается указанное слово. Примечание текст любой может быть

Как я понял, то нужно создать тестовый файл, в него скопировать текст из любого документа или взять к примеру любое литературное произведение. В самой программе написанной на языке Turbo Pascal нужно ввести любое слово и подсчитать сколько раз оно встречается в тесте, который мы скопировали в файл.

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

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

begin
  r:=0;
  if w<>'' then
    repeat
      p:=Pos(w,s); q:=p+Length(w);
      if p=0 then Break;
      Inc(r,Ord(
        ((p=1) or (p>1) and not (s[p-1] in Letters)) and
        ((q>Length(s)) or (q<=Length(s)) and not (s[q] in Letters)) ));
      while (q<=Length(s)) and (s[q] in Letters) do Inc(q);
      Delete(s,1,q-1)
    until False;
  Count:=r;
end;

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

r := 0; Устанавливаем счетчик в ноль, так как пока ни одно слово не было найдено.
if w <> '' then Начинаем цикл, если в переменной w есть символы.
p := Pos(w, s); q := p + Length(w); Находим первое вхождение слова w в строке s. Задаем переменным p и q соответствующие позиции.
if p = 0 then Break; Если слово w не найдено, то прерываем цикл.
Inc(r, Ord(
1. ((p = 1) or (p > 1) and not (s[p-1] in Letters)) and
2. ((q > Length(s)) or (q <= Length(s)) and not (s[q] in Letters)) )); Увеличиваем значение счетчика r на единицу за каждое вхождение слова w, удовлетворяющего условиям.
while (q <= Length(s)) and (s[q] in Letters) do Inc(q); Цикл продолжается до тех пор, пока переменная q не превышает длину строки s или пока символ в позиции q является буквой.
Delete(s, 1, q — 1); Удаляем из строки s подстроку, начиная с позиции перед последней найденной подстрокой w до конца строки.
until False; Цикл завершается только тогда, когда условие цикла не выполняется, то есть когда слово w не найдено.
Count := r; Задаем значение счетчика Count равным значению счетчика r.
end;