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

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;beginreadln(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.