Определите долю гласных букв в заданном тексте на русском (английском) языке — Pascal(Паскаль)

program s2;
const glas=['a', 'e', 'i', 'o', 'u', 'y'];
var text1:string;
a, b, c,  d,i :integer;
e:char;
begin
b:=0;
readln(text1);
for a:=1 to length(text1) do
  if text1[a] in glas then b:=b+1;
writeln('dolya glassnyh = ',b*100/length(text1):0:2,'%');
readln;
end.