Вывести слова, в которых гласных букв больше согласных

program pr1;
uses crt;
type T_str=array[1..10] of string[80];
       T_set=set of char;
var s: T_str;
     alf:T_set;
     n,i.j:byte;
    g,m:integer;
begin
   clrscr;
  alf:=['A'..'Z'];
  repeat
   write('введите количество слов(не более 10)');
   readln(n);
   f not (n in [1..10]) then
begin
  writeln;
  writeln('ошибка ввода');
  writeln;
end;
 until (n in [1..10]);
 for i:=1 to n do
 begin
  write('введите,'i,'слово');
   readln(s[i]);
   for j:=lendth(s[i]) downto 1 do
  if UpCase(s[i,j]) in alf then
 begin

program glas;
uses crt;
type T_str=array[1..10] of string[80];
     T_set=set of char;
var s,new: T_str;
    alf,gls,sogl: T_set;
    kol,i,j,kolg,kolsg,schet:byte;
    prom: string;
begin
clrscr;
textcolor(green);
schet:=1;
kolg:=0; kolsg:=0;
alf:=['A'..'Z'];
gls:=['A','E','I','O','U','Y'];
sogl:=['B','C','D','F','G','H','J','K',
'L','M','N','P','Q','R','S','T','V','W','X'];
writeln;
writeln(' Vvedite kol-vo slov(ne > 10 !):');
readln(kol);
writeln;
textcolor(red);
writeln(' VVODIM TOLKO ZAGLAVNIMI !!!');
textcolor(green);
writeln;
for i:=1 to kol do
   begin
   writeln(' vvod ',i,'-go slova:');
   readln(s[i]);
   prom:=s[i];
   kolg:=0; kolsg:=0;
   for j:=1 to length(prom) do
      begin
      if (prom[j] in gls) then
         kolg:=kolg+1
      else kolsg:=kolsg+1;
      end;
      if kolg>kolsg then
         begin
         new[schet]:=prom;
         schet:=schet+1;
         end;
   end;
clrscr;
writeln;
writeln(' IsHodnii massiv slov:');
writeln;
for i:=1 to kol do
   begin
   write(' ',s[i]);
   end;
readkey;
writeln;writeln;
writeln(' Slova gde > glas.');
writeln;
for i:=1 to schet do
   begin
   write(' ',new[i]);
   end;
readkey;
end.