Строковый тип данных Опции

[kekc]

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

[HelpAusHeaven]

Функция считающая кол-во русских гласных букв:

Код

function CountRussianChars(Str: String):Integer;
const Chars = 'аеиоуыюяАЕИОУЫЮЯ';
var I, I1: Integer;
begin
 result := 0;
 for I := 1 to Length(Str) do
   for I1 := 1 to Length(Chars) do
     if (Str[I] = Chars[I1]) then result := result + 1;
end;