Дана строка, которая состоит из слов, разделенных пропусками. Определить количество слов содержащих ровно три буквы "а" - Pascal

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

Дана строка, которая состоит из слов, разделенных пропусками. Определить количество слов содержащих ровно три буквы "а"

Спойлер

Решение задачи: «Дана строка, которая состоит из слов, разделенных пропусками. Определить количество слов содержащих ровно три буквы "а"»

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

Program tree;
 
var i, j, k: integer;
    s: string;
 
begin
  writeln('Enter string:');
  readln(s);
  j := 0;
  k := 0;
  for i := 1 to length(s) do
    case s[i] of
      'a': j := j + 1;
      ' ': begin
             if j = 3 then k := k + 1;
             j := 0
           end
    end;
  writeln('3-symbols word count: ', k);
  readln
end.

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

Вводится строка с помощью функции readln().
Инициализируются три переменные: j, k, i.
Переменная j отвечает за количество букв а, переменная k за количество слов с тремя буквами а, переменная i используется в цикле.
В цикле for перебираются все символы строки.
В каждом символе проверяется, является ли он буквой а.
Если символ является буквой а, то к переменной j прибавляется единица.
Если символ является пробелом, то проверяется, равна ли переменная j трём. Если да, то к переменной k прибавляется единица, а переменная j обнуляется.
По завершению цикла выводится количество слов, содержащих ровно три буквы а.