Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных (а, е, о) максимальное

Var
  S, C, Cmax: string;
  i, j, k, max: integer;
Begin
  Write(Введите предложение: );ReadLn(S);
  S := UpperCase(S) + .;
  max := 0;
  i := 1;
  while (i <= Length(S)) do
  begin
    C := ;
    while (S[i] in [А..Я]) do
    begin
      C := C + S[i];
      i += 1;
    end;
    k := 0;
    For j := 1 to Length(C) do
      if (C[j] in [А,Е,Ё,И,О,У,Э,Ю,Я]) then
        k := k + 1;
    if (k > max) then
    begin
      max := k;
      Cmax := C;
    end;
    i += 1;
  end;
  WriteLn(Слово с наибольшим количеством гласных: ,Cmax);
End.

Пример:

Введите предложение: Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное
Слово с наибольшим количеством гласных: ПРЕДЛОЖЕНИИ

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.