Notes

program max_sequence;

uses SysUtils;

// Определяем функцию, которая проверяет является ли символ гласной буквой
function is_vowel(ch: Char): boolean;
begin
is_vowel := ch in ['A', 'E', 'I', 'O', 'U'];
end;

// Определяем функцию, которая находит максимальную последовательность пар "согласная + гласная"
function find_max_sequence(text: string): integer;
var
max_length, length: integer;
prev_char, ch: Char;
begin
// Инициализируем переменные
max_length := 0; // максимальная длина последовательности
length := 0; // длина текущей последовательности
prev_char := #0; // предыдущий символ

// Проходим по символам в тексте
for ch in text do
begin
// Если это первый символ, то просто запоминаем его
if prev_char = #0 then
begin
prev_char := ch;
continue;
end;

// Если предыдущий символ - гласная, а текущий - согласная (или наоборот),
// то увеличиваем длину текущей последовательности
if is_vowel(prev_char) and not is_vowel(ch) then
length := length + 1
else if not is_vowel(prev_char) and is_vowel(ch) then
length := length + 1
// Иначе, если текущая последовательность закончилась, то сравниваем ее длину
// с максимальной длиной и обнуляем длину текущей последовательности
else begin
max_length := System.Math.Max(max_length, length);
length := 0;
end;

// Запоминаем текущий символ как предыдущий для следующей итерации
prev_char := ch;
end;

// Сравниваем длину последней последовательности с максимальной и возвращаем результат
max_length := System.Math.Max(max_length, length);
find_max_sequence := max_length;
end;

var
text: string;
max_sequence_length: integer;
begin
// Открываем файл и читаем его содержимое
AssignFile(input, 'file.txt');
Reset(input);
ReadLn(text);
CloseFile(input);

// Находим максимальную последовательность пар "согласная + гласная" и выводим результат
max_sequence_length := find_max_sequence(text);
WriteLn(max_sequence_length);
end.