Посимвольный ввод. Вывести слова в которых гласных букв больше чем согласных - Pascal ABC - Ответ 2810397

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;                                             //счетчики и переменные для количества гласных и согласных в слове
      slovo: string;                                               //переменная для слова
      c: char;
begin
writeln('Введите предложение. Признак окончания ввода - точка');
sr:=ar-gr;  sl:=al-gl;
slovo:='';
repeat
read(c);
if not (c in p) then
   begin
   slovo:=slovo+c;
   if (c in sr) or (c in sl) then inc(ks);  //если символ входит в множество согласных, увеличиваю счетчик согласных букв
   if (c in gr) or (c in gl) then inc(kg);  //если символ входит в множество гласных, увеличиваю счетчик гласных букв
   end else
   begin
   if kg>ks then write(slovo,' ');
   slovo:='';
   kg:=0;
   ks:=0;
   end;
until c='.';
end.