Дана строка состоящая из русских слов набранных заглавными буквами и разделенных пробелами найти количество слов которые содержат ровно 3 буквы "А"

DВот решение данной задачи на языке Pascal: var s:string; k,n,i:longint; begin  read(s);  k:=0;  n:=0;  for i:=1 to length(s) do   begin    if ord(s[i])=65 then k:=k+1;    if ord(s[i])=32  then     begin      if k=3 then n:=n+1;     k:=0;     end;    end; writeln(n); end.