Запишите программу, определяющая колво гласных букв в введенном слове

//прога на Pascal`e
var
s: string;
ch: set of char = [а, о, у, е, ё, и, э, я, ю];
i, count: byte;
begin
readln (s);
for i:=1 to length (s) do
  if s[i] in ch then inc (count);
write (count);
end.