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

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.