Не могу выдавить окружности (радиуса 5)операцией выдавить выдавливанием. Не могу понять где ошибка.

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.

Пример:

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

Ваня не учится в 35 школе, значит, либо в "47" либо в "52". Витя не учится в 47 школе, значит, либо "35" либо "52". Вите не нравится играть в шахматы, значит, либо "баскетбол" либо "футбол". Витя не учится в 47 школе, значит, он не играет в баскетбол, по условию сказано, что мальчик не играет и в шахматы, значит, Витя играет в футбол. По условию сказано, что ученик 35 школы не ходит в футбольную секцию, значит, Витя учится в 52 школе. Если не Ваня не Витя не учатся в 35 школе, значит, в этой школе учится Петя. Если Петя учится в 35 школе, а Витя в 52, то Ваня учится 47 школе. По условию сказано, что ученик 47 школы занимается баскетболом, значит, Ваня ходит в данную секцию. Если Витя ходит в футбольную секцию, а Ваня в баскетбольную, значит, в шахматную секцию ходит Петя.

ответ:
- Петя учится в 35 школе и ходит в шахматную секцию
- Ваня учится в 47 школе и ходит в баскетбольную секцию
- Витя учится в 52 школе и ходит в футбольную секцию