помогите с задачкой на строки

[J_o_h_n_]

Дан текст из цифр и строчных латинских букв, за которым следует точка. Определить , каких букв гласных или согласных - больше в этом тексте?

[__STDC__]

uses 
	CRT;
var
	let_set,num_set:set of char;
	i,m,n:integer;
	str:string;

BEGIN
clrscr;
str:='Hellooooooooooooooooo world.';
let_set:=['A','E','I','O','U','Y','a','e','i','o','u','y'];
num_set:=['0'..'9']+['.'];
for i:=1 to length(str) do
   if (str[i] in let_set) then inc(m)
   else
   if not(str[i] in num_set) then inc(n);
if (m>n) then 
   writeln('Больше гласных.') 
else  
   writeln('Больше согласных.');
readkey;
END.

[J_o_h_n_]

спасибо +1

[__STDC__]

Ой.. там строчные только.. заглавных нету, не заметил) ну можно убрать часть множества тогда..

let_set:=['a','e','i','o','u','y'];

[J_o_h_n_]

ок щас исправим спс