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

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.

Пример:

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