Найти и вывести слово нечетной длины, в котором согласных букв больше

const
  ar: set of char = ['А'..'Я', 'а'..'я'];                       //задаю множество букв русского алфавита
  //задаю множество гласных букв русского алфавита
  gr: set of char = ['А', 'Ё', 'У', 'Е', 'Ы', 'О', 'Э', 'Я', 'И', 'Ю', 'а', 'ё', 'у', 'е', 'ы', 'о', 'э', '?', 'и', 'ю'];
  p: set of char = [' ', '.', ',', ':', ';', '!', '?', '-'];//задаю множество разделителей слов
 
var
  sr: set of char;                                          //переменные для множеств согласных
  i, j, kg, ks: byte;                                             //счетчики и переменные для количества гласных и согласных в слове
  s, slovo: string;//переменная для строки и для слова
 
begin
  write('s=');                                                     //запрашиваю и считываю строку
  readln(s);
  s := s + ' ';
  slovo := '';                                             //добавляю  пробел в конце предложения
  sr := ar - gr;
  for i := 1 to length(s) do
    if not (s[i] in p) then slovo := slovo + s[i] else                //если символ - не знк препинания или пробел, добавляю его к "нововобразовываемому" слову. иначе перехожу к обработке
    if length(slovo) > 0 then                                    //если длина набранного слова больше 0
    begin
      kg := 0;ks := 0;                                           //изначально количество гласных и количество согласных рано 0
      for j := 1 to length(slovo) do                            //в цикле с параметром перебираю символы слова
      begin
        if slovo[j] in sr then 
          inc(ks);  //если символ входит в множество согласных, увеличиваю счетчик согласных букв
        if slovo[j] in gr then 
          inc(kg);  //если символ входит в множество гласных, увеличиваю счетчик гласных букв
      end;
      if (kg > ks) and (length(slovo) div 2 <> 0)  then 
        write(slovo, ' ');                         //если счетчик гласных больше согласных, вывожу слово
      slovo := '';                                              //очищаю переменную для следующего слова
    end;
end.