Выяснить, встречается ли в тексте группа из трех букв, которая вводится с клавиатуры, и сколько раз - Turbo Pascal

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

Доброго времени суток. Помогите, пожалуйста, написать программу. Задание: Задано текст, в котором группы букв и знаков отделены друг от друга символом пробел. Выяснить, встречается в тесте группа из трех букв, которая вводится с клавиатуры, и сколько раз. Буду очень признательна

Решение задачи: «Выяснить, встречается ли в тексте группа из трех букв, которая вводится с клавиатуры, и сколько раз»

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

var i, j, k: integer;
    s, w: string;
    b: boolean;
begin
  repeat
    write('Введите группу из трёх букв: ');
    readln(w);
    b := length(w) = 3;
    if b then for i := 1 to 3 do b := b and (w[i] in ['A'..'Z', 'a'..'z', 'А'..'п', 'р'..'ё'])
  until b;
  writeln('Введите строку:');
  readln(s);
  k := 0;
  for i := 0 to length(s) - 3 do
    begin
      b := true;
      for j := 1 to 3 do b := b and (s[i + j] = w[j]);
      if b then inc(k)
    end;
  if k = 0
    then write('Группы букв "', w, '" в строке нет')
    else write('Количество групп букв "', w, '" в строке: ', k);
  readln
end.

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

Создаются три переменные типа integer: i, j, k.
Создается две переменные типа string: s и w.
Создается одна переменная типа boolean: b.
В цикле repeat-until вводится группа из трех букв и проверяется, равна ли длина введенной строки трем.
Если условие выполняется, то для каждой буквы в группе проверяется, есть ли она в строке.
В цикле for i := 0 to length(s) - 3 происходит проверка каждого символа строки s на равенство символам w[j].
Если находится совпадение, то увеличивается значение переменной k.
После выполнения цикла for выводится сообщение о количестве групп букв в строке.
Цикл repeat-until завершается, когда введенная группа не соответствует трем буквам.
Записывается сообщение о том, что групп букв в строке нет.
Если значение переменной k равно нулю, то выводится сообщение о том, что групп букв в строке нет.
Цикл readln() используется для чтения строки из стандартного ввода.