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

uses
    crt;
    //объявляем переменные
    //n1 и n2 служат для записи начальнйо и конечной позиции куска строки
    //gl_count и sg_count - число гласных и согласных букв
    //koltso - длина кольца
    //i,j,k - счетчики
    //slova - массив для слов,ан которые будт разбита строка
    //stroka - текст для обработки
    //glasnye - набор гласных букв
var n1,n2,gl_count, sg_count, koltso,i,j,k :integer;
    slova: array [1..1000] of string;
    stroka: string;
    glasnye: set of char;
begin
     write('Введите строку: ');
     readln(stroka); //читаем исходный текст
     n1:=1; //присваиваем начальные значения
     k:=1;
     koltso:=0;
     glasnye:=['у','е', 'ы', 'а', 'о', 'э', 'я', 'и', 'ю']; //указываем какие буквы гласные
     for i:=1 to Length(stroka) do //теперь перебираем символы строки от первого до последнего
         if stroka[i] = ' ' then  //если текущий символ пробел
         begin
              n2:=i-1; //получаем позицию конца слова(перед пробелом находится)
              slova[k]:=Copy(stroka,n1,n2-n1+1); //копируем кусок строки от n1 до n2 в массив слов
              inc(k); //увеличиваем индекс элеменат в массиве строк на 1
              n1:=i+1; //устанавливаем позицию начала следующего слова(после пробела находится)
         end;
     n2:=Length(stroka);//конец последнего слова конец строки
     slova[k]:=Copy(stroka,n1,n2-n1+1); //копируем последнее слово
     
     for i:=1 to k do  //теперь перебираем массив строк
     begin
         gl_count:=0; //для каждого слова обнуляем количество гласных
         sg_count:=0; //и количество согласных
         for j:=1 to Length(slova[i]) do //перебираем все буквы слова
             if slova[i][j] in glasnye then  //и если буква в массиве гласных
                inc(gl_count) //то увееличиваем количество гласных
             else
                 inc(sg_count);  //иначе увеличиваем количество согласных
         if gl_count = sg_count then //если после перебора букв слова количество гласных равно количеству согласных
            koltso := koltso + Length(slova[i]); //к длине кольца прибавляем длину слова
     end;
     writeln('Длина кольца равна ', koltso);  //выводим суммарную длину всех слов с одинаковым количеством гласных и согласных
end.