В символьном массиве подсчитать количество гласных и согласных букв.(Английский алфавит. Определение гласных и согласных букв можно сделать с помощью  функции) на pascal

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.