Задача на строки Опции

[Array]

Никак не могу создать работающую версию программы:
Найти в предложении слова не длинее 6 букв и чтобы в них было минимум 30% гласных букв.

Помогите, кто может!!

[volvo]

По ссылке ходил? Там более простая версия программы, вот то, что тебе нужно:

const
  glas_set = ['a', 'e', 'o', 'i', 'u'];
var
  s: string;
  curr_len, start: byte;

  i, j, glas: integer;
begin
  i := 1;
  s := 'one two xx  three     four ytyoooooo';
  while i <= length(s) do begin

    while (s[i] = ' ') and (i <= length(s)) do inc(i);

    curr_len := 0;
    while (s[i] <> ' ') and (i <= length(s)) do begin
      inc(i); inc(curr_len);
    end;

    if curr_len <= 6 then begin
      glas := 0;
      for j := i - curr_len to pred(i) do
        if s[j] in glas_set then inc(glas);

      if (glas / curr_len) > 0.3 then
        writeln( 100 * (glas / curr_len):5:0, '% - ',
          copy(s, i - curr_len, curr_len) )
    end;
  end;

end.

Если нужна кириллица, поменяй соответствующее множество, я проверял для латиницы.

P.S. В следующий раз, чтобы не быть голословным, и нам не приходилось писать с нуля, приводи свою версию программы, так и мы будем знать, что ты что-то пытался сделать, да и быстрее поправить будет :yes: