Написать программу нахождения количества гласных в строке.

Const a:array[1..32] of char=(А,а,Е,е,Ё,ё,И,и,О,о,У,у,Ы,ы,Э,э,Ю,ю,Я,я,A,a,E,e,I,i,O,o,U,u,Y,y);
var s:string;
i,j,k:integer;
begin
readln(s);
for i:=1 to length(s) do
  for j:=1 to 32 do
  if s[i]=a[j] then k+=1;
writeln(k);
end.