Множества

[Гарри]

Дан текст из цифр и строчных латинских букв. Определить, каких букв - гласных (a, e, i, o, u) или согласных больше в этом тексте.

[Stilet]

const s='Дан текст из цифр и строчных латинских букв. Определить, каких букв - гласных (a, e, i, o, u) или согласных больше в этом тексте. ';
var q,w,i:integer;
begin
 for i:=1 to Length(s) do if s[i] in ['a', 'e', 'i', 'o', 'u'] then inc(q) else inc(w);
 write('тех=',q,' этих=',w);readln;
end.