Без применения регулярных выражений - PascalABC.NET

Формулировка задачи:

Нужна срочно помощь.Задание сделала,но преподователю не понравилось с формулировкой:-"Этого не было в нашей образовательной программе,сделай проще,убери регулярные ворожения".Программа работает.Нужно сделать проще,то есть,без применения регулярных выражений.Пожалуйста помогите.... Вот рабочая программа.

var good, pattern: string; //good - строка с хорошими буквами, pattern - шаблон
    arr: array of string; //динамический массив строк
    n: integer;
 
begin
      readln(good); //вводим строку с хорошими буквами
      readln(pattern); //вводим шаблон
 
      pattern:=pattern.Replace('*', '[^'+good+']*'); //заменяем * на '[^хорошие буквы]*', 
                                                               //что означает символы не входящие в группу "хорошие буквы" могут повторяться 0 и более раз
      pattern:=pattern.Replace('?', '['+good+']{1}'); //заменяем ? на '[хорошие буквы]{1}', 
                                              //что означает символ входящий в группу "хорошие буквы" может повториться только 1 раз
      pattern:='^'+pattern+'$'; //добавляем обозначения начала и конца строки, 
                                          //это значит что полученный шаблон должен совпадать полностью от начала строки и до конца
                                         //writeln(reg);
 
      readln(n);             //вводим кол-во строк
      SetLength(arr, n); //задаем длину массива
 
for var i:=0 to n-1 do        //цикл от 0 (массив созданный через SetLength начинается с 0 и до n-1)
  readln(arr[i]);               //вводим строку
 
for var i:=0 to n-1 do            //цикл по массиву строк
  if Regex.IsMatch(arr[i], pattern) then        
    writeln('YES')         //выводим ДА
  else //иначе
    writeln('NO');        //выводим НЕТ
end.

Настали тяжелые времена. Сегодня Пете нужно набрать на экзамене по информатике 100 баллов. Все задачи на экзамене Пете кажутся простыми, но он боится, что не успеет сделать одну из них за такой маленький промежуток времени, поэтому он обратился к вам за помощью. В условии даётся шаблон (строка, состоящая из строчных латинских букв, символов «?» и «*»). Известно, что символ «*» встречается в шаблоне не более одного раза. Также в условии даны n строк-запросов, и для каждой необходимо определить, подходит ли она под данный шаблон, или нет. Все было бы хорошо, но специальные символы в шаблоне в этой задаче действуют не так, как обычно! Строка подходит под шаблон, если можно в шаблоне заменить каждый из символов «?» на одну хорошую строчную латинскую букву, а символ «*» (если он есть) — на любую, в том числе пустую, строку из плохих строчных латинских букв так, чтобы результат совпал со строкой. В условии также даны буквы, считающиеся хорошими. Плохими являются все остальные буквы латинского алфавита. Входные данные В первой строке находится строка, содержащая от 1 до 26 различных строчных латинских букв. Это буквы, которые считаются в задаче хорошими. Все остальные буквы — плохие. Во второй строке находится шаблон — строка s из строчных букв латинского алфавита, символов «?» и «*» (1 ≤ |s| ≤ 105). Гарантируется, что символ «*» встречается в s не более одного раза. Во третьей строке находится целое число n (1 ≤ n ≤ 105) — количество строк-запросов. Далее следуют n строк, в каждой из них находится по одной непустой строке, состоящей из строчных латинских букв — очередная строка-запрос. Гарантируется, что сумма длин всех строк-запросов не превосходит 105. Выходные данные Выведите n строк: в i-й строке необходимо вывести «YES», если i-я строка-запрос удовлетворяет шаблону, и «NO» в противном случае. Вы можете выводить каждую из букв в любом регистре. Примеры входные данные ab a?a 2 aaa aab выходные данные YES NO

Решение задачи: «Без применения регулярных выражений»

Листинг программы

var
  s: array of string; // строка
  st: string; // шаблон
  good: set of char = ['a'];
  i, it, n: integer;
 
begin
  readln(st); // хорошие буквы, заносим в множество good
  foreach var ch in st do Include(good, ch);
  
  readln(st); // шаблон
  readln(n); // количество строк для проверки
  SetLength(s, n);
  for var curr := 0 to n - 1 do readln(s[curr]); // читаем строки
  
  for var curr := 0 to n - 1 do 
  begin
    i := 1; it := 1;
    while (i <= Length(s[curr])) and (it <= Length(st)) do
    begin
      if st[it] = '?' then // следующая буква шаблона - "?", ей должна соответствовать одна из хороших букв в строке
      begin
        if s[curr][i] in good then // в строке - хорошая буква, все нормально
        begin
          inc(i);inc(it);
        end
        else 
        begin
          i := length(s[curr]) + 2; // нет, буква в строке плохая, выходим из цикла
        end;
      end
      else if st[it] = '*' then // следующий символ шаблона - '*',ей может соответствовать 0 или больше плохих букв
      begin
        // так что пропускаем плохие буквы, пока не встретится хорошая, или пока не дойдем до конца строки
        while (i < Length(s[curr])) and (s[curr][i] in (['a'..'z'] - good)) do inc(i);
        inc(it);
      end
      // просто буква - проверяем на равенство две буквы
      else 
      begin
        if s[curr][i] = st[it] then // буквы равны - все нормально
        begin
          inc(i);inc(it);
        end
        else 
        begin
          i := length(s[curr]) + 2; // нет - выходим из цикла
        end;
      end;
    end;
    // совпадение строки и шаблона - только в том случае, если индекс очередного символа
    // и там и там на 1 больше длины соответствующей строки (то есть, мы только что
    // закончили обрабатывать как строку, так и шаблон)
    if (i = length(s[curr]) + 1) and (it = length(st) + 1) then writeln('YES')
    else writeln('NO');
  end;
end.

Объяснение кода листинга программы

Задачу программы можно описать как проверку соответствия строки шаблону, при этом не используя регулярные выражения.
Код использует множество good для хранения хороших букв.
Сначала в цикле с помощью функции Readln считываются строка шаблона и количество строк для проверки.
Далее в цикле считываются сами строки для проверки.
Для каждой строки в цикле происходит проверка соответствия шаблону.
Если в шаблоне стоит символ ?, то программа проверяет, есть ли такая буква в текущей строке.
Если в шаблоне стоит символ *, то программа пропускает плохие буквы до тех пор, пока не встретит хорошую или не достигнет конца строки.
Если шаблон просто состоит из буквы, то программа сравнивает ее с буквой из строки.
Если строка и шаблон совпадают, то выводится YES, иначе NO.
В конце программы выводится общее количество строк, которые соответствуют шаблону.