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

//прога на 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.