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

[Drenchick]

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

[volvo]

TS*, не-а...

Введи строку 'dda abbaa defaaa noneeaaaa', и посмотри что выводит программа...
(под Турбо-Паскалем вообще виснет, если не завершить строку пробелом...)

Я бы делал так:

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

begin
  readln(s);
  {
    s := 'dda abbaa defaaa noneeaaaa';
  }
  count_words := 0; count_a := 0;
  for i := 1 to length(s) do
    if s[i] = 'a' then inc(count_a)
    else
      if s[i] = ' ' then begin
        if count_a = 3 then inc(count_words);
        count_a := 0;
      end;
  writeln('Koluchestvo slov s 3 bykvamu "a" = ', count_words);
end.