Разработать функцию для решения задачи обработки строк - подсчитать количество гласных букв в строке. Паскаль.

function Glas(s:string):=s.Where(x->pos(UpCase(x),'АЕЁИОУЫЭЮЯ')>0).Count;

begin
  var s:=ReadlnString('Введите текст');
  Writeln('Гласных: ',Glas(s))
end.


Введите текст Это мой примерчик для подсчета
Гласных: 10