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

[KA6AH]

Помогите, пожалуйста, с задачей, а то что-то никак не выходит ничего путного с ней.
Итак, само, собственно, задание: Строка, вводимая с клавиатуры, содержим группы английских букв, цифр и знаков(+-*). Требуется найти группу букв, содержащую максимальное количество гласных букв.
Заранее благодарен.

[volvo]

Если тебя интересует группа ЛЮБЫХ букв, содержащая в себе максимальное число гласных - то вот так:

const
  letters = ['A' .. 'Z'];
  vowels = ['A', 'E', 'I', 'O', 'U'];

var
  s: string;
  i, pos, max, curr, total: integer;

begin
  write('s = '); readln(s);
  s := s + ' ';

  max := 0;
  curr := 0; total := 0;
  for i := 1 to length(s) do begin

    if upcase(s[i]) in letters then begin
      inc(total);
      if upcase(s[i]) in vowels then inc(curr);
    end
    else
      if curr > max then begin
        pos := i - total;
        max := curr;

        curr := 0; total := 0;
      end;

  end;

  i := pos;
  while upcase(s[i]) in letters do inc(i);
  writeln('max vowel group: ', copy(s, pos, i - pos), ' count = ', max)
end.

[KA6AH]

Большое спасибо. Только еще 1 вопрос: можно сделать так, чтобы группа состояла не из заглавных, а из прописных букв?

[Bokul]

Большое спасибо. Только еще 1 вопрос: можно сделать так, чтобы группа состояла не из заглавных, а из прописных букв?

Если ты имееш в виду, искать групу только прописных букв, которая содержить наибольшое количество
гласных букв, то надо изменить

  letters = ['A' .. 'Z'];
  vowels = ['A', 'E', 'I', 'O', 'U'];

на

  letters = ['a' .. 'z'];
  vowels = ['a', 'e', 'i', 'o', 'u'];

и удалить upcase'и