Помогите с Pascal

Cимвольная строка содержит произвольный английский текст. Проверить, каких букв в нем больше: гласных или согласных.Надо написать исходник.Заранее благодарю

 

Code:

 var s:string;
    i:byte;
.......
for i:=1 to length(s) do
if s[i] in ['а','о','е так далее'] then inc(glas);
 s[i] in ['ч','с','м так далее'] then inc(sogl);
if glas>sogl then writeln('glasnyx bolshe')
else 
writeln('sogl');