Строки, одинаковые буквы Опции

[Drenchick]

вводим слова через пробел. найти количество слов которые вмещают 3 буква "а"

[TS*]

вводим слова через пробел. найти количество слов которые вмещают 3 буква "а"

var
 s:string;
 i,count_a,count_words:byte;

begin
 readln(s);
 i:=0;
 count_a:=0;
 count_words:=0;
 while i<=length(s) do
 begin
  inc(i);
  if s[i]='a' then
  begin 
   inc(count_a);
   repeat     
    inc(i);
    if s[i]='a' then inc(count_a);
    if count_a=3 then inc(count_words);
   until s[i]=' ';
   count_a:=0;
   dec(i);  
  end;
 end;
     
 writeln('Koluchestvo slov s 3 bykvamu a = ',count_words);
end.