строки, количество слов с разным кол-ом слогов Опции

[кучаТрупов]

задача: сколько слов в тексте имеет 1 слог,2 слога,3 слога и т.д.(кол-во слогов в слове совпадает с кол-ом гласных)

в Фак'е было только про *сколько раз заданное слово встречаетсся в тексте*
и больше я не нашла что бы мне помогло.

[volvo]

А слово "Хм" ты просто вышвырнул из предложения, да? Ну, в принципе, если такой алгоритм подсчета слогов устраивает автора темы, то надо сделать чуть-чуть по-другому:

const
  size = 20;
  glas = ['А', 'а', 'Е', 'е', 'О', 'о', 'И', 'и', 'У', 'у', 'Ы', 'ы', 'Э', 'э', 'Я', 'я', 'Ю', 'ю'];

var
  s: string;
  i, count: integer;
  is_space: boolean;
  mas: array[0 .. size] of integer;

begin
  s := 'Хм кучаТрупов вопрос на засыпку в этом предложении ';
  count := 0; is_space := true;

  for i := 1 to length(s) do begin

    if s[i] = ' ' then begin
      if not is_space then inc(mas[count]);
      count := 0; is_space := true;
    end
    else begin
      is_space := false;
      if s[i] in glas then inc(count);
    end

  end;
  for i := 0 to size do
    if mas[i] > 0 then writeln('Слогов: ', i, ' -> слов: ', mas[i]);
end.

Тут уже, кстати, не особо и важно, чем разделяются слова, одним пробелом или несколькими. Да и пробелами ли вообще (можно заменить сравнение с пробелом на проверку вхождения в набор разделителей)...