В символьном массиве подсчитать количество гласных и согласных букв. Английский алфавит — Pascal(Паскаль)

uses crt;
var a:string;
    i,sogl,glas:integer;
 
function schet(b:string; var glas,soglas:integer):integer;
begin
glas:=0;
soglas:=0;
for i:=1 to length(b) do
 begin
  if b[i] in ['*'..'п','Ђ'..'џ'] then
   if b[i] in ['*','Ђ','Ґ','…','Ё','?','®','Ћ','г','“','н','ќ','о','ћ','п','џ','с','р','›','л'] then
    inc(glas)
   else
    inc(soglas);
 end;
end;
 
begin
ClrScr;
Readln(a);
Schet(a,glas,sogl);
Writeln('Soglasnix ',sogl);
Writeln('Glasnyx ',glas);
Readln;
end.

uses crt;
const n=10;
var a:array[1..n] of char; i,k,l: byte; h,g: set of char;
begin
h:=[chr(65)..chr(90),chr(97)..chr(122)];
g:=['a','e','i','o','u','y','A','E','I','O','U','Y'];
clrscr;
for i:=1 to n do
begin
write('введите ',i,'-й символ: ');
readln(a[i]);
end;
for i:=1 to n do
if a[i] in g then inc(k)
else if a[i] in h-g then inc(l);
writeln('кол-во гласных символов = ',k);
write('кол-во согласных символов = ',l);
end.