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

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017// Внимание! Если программа не работает, обновите версию!function Glas(s:string):=s.Where(x->pos(UpCase(x),'АЕЁИОУЫЭЮЯ')>0).Count;begin  var s:=ReadlnString('Введите текст');  Writeln('Гласных: ',Glas(s))end.Пример:Введите текст Это мой примерчик для подсчетаГласных: 10