Паскаль, не могу решаить задачку.

[Coyot]

Текст, нужно определить каких букв больше гласных или согласных.

[Veselyn]

program example1; 
const 
  glasn=['а','е','и','о','у','ы','э','ю','я']; 
   soglas=['б','в','г','д','ж','з','й','л','м',
         'н','р','к','п','с','т','ф','х','ц','ч','ш','щ'];
 var
   st: string; 
     g,s,i:integer; 
begin 
  write('Введите строку> '); readln(st); 
    g:=0; s:=0; 
      for i:= 1 to length(st) do 
     begin
        if st[i] in glasn then inc(g) 
       else if st[i] in soglas then inc(s);
     end;
        if g> s then writeln('Гласных больше')
    else if g< s then writeln('Согласных больше')
  else writeln('Согласных и гласных букв поровну');
 readln; 
end.