Дана строка содержащая любые символы кроме русских букв. Написать функцию, которая в заданной строке находит количество больших и маленьких гласных английских букв. Использовать заголовок:function CalcGlasLatBukv(Stroka: string): integer;На паскале

function CalcGlasLatBukv(Stroka: string): integer;

var i,count:integer;

begin

count:=0;

for i:=1 to length(Stroka) do begin

case Stroka[i] of

'a','e','i','o','u','y','A','E','I','O','U','Y': count:=count+1;

end;

end;

CalcGlasLatBukv:=count;

end;

begin

write(CalcGlasLatBukv('Hello'));

end.