Множества. Вывести слова в которых гласных букв больше чем согласных

uses crt;
const ar: set of char=['À'..'ß','à'..'ÿ'];
      gr: set of char=['À','¨','Ó','Å','Û','Î','Ý','ß','È','Þ',
                       'à','¸','ó','å','û','î','ý','?','è','þ'];
      al: set of char=['A'..'Z','a'..'z'];
      gl: set of char=['A','E','Y','U','I','O',
                       'a','e','y','u','i','o'];
      p: set of char=[' ','.',',',':',';','!','?','-'];
var sr,sl: set of char;
    i,j,kg,ks: byte;
    s,slovo: string;
begin
write('s=');
readln(s);
s:=s+' '; slovo:='';
sr:=ar-gr;  sl:=al-gl;
for i:=1 to length(s) do
    if not (s[i] in p) then slovo:=slovo+s[i] else
       if length(slovo)>0 then
          begin
          kg:=0; ks:=0;
          for j:=1 to length(slovo) do
              begin
              if (slovo[j] in sr) or (slovo[j] in sl) then inc(ks);
              if (slovo[j] in gr) or (slovo[j] in gl) then inc(kg);
              end;
          if kg>ks then write(slovo,' ');
          slovo:='';
          end;
end.

uses crt;
const ar: set of char=['А'..'Я','а'..'я'];                       //задаю множество букв русского алфавита
      gr: set of char=['А','Ё','У','Е','Ы','О','Э','Я','И','Ю',  //задаю множество гласных букв русского алфавита
                       'а','ё','у','е','ы','о','э','?','и','ю'];
      al: set of char=['A'..'Z','a'..'z'];                       //задаю множество букв латинского алфавита
      gl: set of char=['A','E','Y','U','I','O',                  //задаю множество гласных букв латинского алфавита
                       'a','e','y','u','i','o'];
      p: set of char=[' ','.',',',':',';','!','?','-'];          //задаю множество разделителей слов
var sr,sl: set of char;                                          //переменные для множеств согласных
    i,j,kg,ks: byte;                                             //счетчики и переменные для количества гласных и согласных в слове
    s,slovo: string;                                             //переменная для строки и для слова
begin
write('s=');                                                     //запрашиваю и считываю строку
readln(s);
s:=s+' '; slovo:='';                                             //добавляю  пробел в конце предложения
sr:=ar-gr;  sl:=al-gl;                                           //вычитаю из множеств букв алфавита гласные, получив таким образом множества согласных, запускаю цикл для перебора всех символов строки
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) or (slovo[j] in sl) then inc(ks);  //если символ входит в множество согласных, увеличиваю счетчик согласных букв
              if (slovo[j] in gr) or (slovo[j] in gl) then inc(kg);  //если символ входит в множество гласных, увеличиваю счетчик гласных букв
              end;
          if kg>ks then write(slovo,' ');                         //если счетчик гласных больше согласных, вывожу слово
          slovo:='';                                              //очищаю переменную для следующего слова
          end;
end.