Реализовать поиск слов по маске

function MatchesMask(sText : string; sMask : string) : boolean;
begin
  var m := new Regex(sMask.Replace('.', '[.]').Replace('*', '.*').Replace('?', '.'));
  result := m.IsMatch(sText);
end;
 
begin
  writeln(MatchesMask('привет', 'пр?в*')); // true
  writeln(MatchesMask('привет', 'пр?вт*')); // false
end.

writeln(MatchesMask('беспроводной', 'пров*')); // true

function MatchesMask(sText : string; sMask : string) : boolean;
begin
  var m := new Regex(('^' + sMask).Replace('.', '[.]').Replace('*', '.*').Replace('?', '.'));
  result := m.IsMatch(sText);
end;

  writeln(MatchesMask('привет', 'пр?в*')); // true
  writeln(MatchesMask('привет', 'пр?вт*')); // false
  writeln(MatchesMask('беспроводной', 'пров*')); // false
  writeln(MatchesMask('беспроводной', '*пров*')); // true
  writeln(MatchesMask('беспроводной', '??спров*')); // true

  var s := 'one two, two, three.... four, one, TWo';
  var re := new System.Text.RegularExpressions.Regex('[^a-zA-Zа-яА-Я0-9]');
  var v := re.Replace(s, ' ').ToWords().GroupBy(s -> s.ToLower()).OrderByDescending(gr -> gr.Count);
  foreach var x in v do writeln(x.Key.ToLower(), ' -> ', x.Count());

var m := new Regex(('^' + sMask + '$').Replace('.', '[.]').Replace('*', '.*').Replace('?', '.'));

if s.Count > 100 then
  for var i := 0 to s.Batch(100).Count - 1 do
  v.Concat(re.Replace(s.Batch(100).ElementAt(i).JoinIntoString(' '), ' ').ToWords().GroupBy(s -> ignoreCase ? s.ToLower() : s));