Дана строка состоящая из слов набранных заглавными буквами и разделенных пробелами найти количество слов которые содержат ровно 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.