Дан текст на российском языке. Отыскать количество гласных букв (Pascal ABC)

Program gt;
var a:string;
k,l,i:integer;
begin
readln(a);
//Сначала переведем вес текст в нижний регистр
l:=length(a);
k:=0;
for i:=1 to l do
begin
if(ord(a[i])gt;64)and(ord(a[i])lt;91)then a[i]:=chr(ord(a[i])+32);
if(a[i]='а')or(a[i]='у')or ... or(a[i]='е')then k:=k+1; //тут заместо точек пиши как ////предедушие но с гласными(иными) буквами
end;
writeln(k);
end.