Написать программу которая вводит строку. Подсчитать количество гласных русских букв в строке и заменить их на знак *(Паскаль)

PascalABC.NET 3.5.1 + .NET Framework 4.7.1

begin

 var s := ReadString();

 var pattern := '[aieuo]|[ауоыиэяюёе]';

 s.Matches(pattern).Count.Println;

 s.RegexReplace(pattern, '*').Println;

end.

Программа работает как с русским языком, так и с английским.