Initialize(СписокСтрок);
while (!конецшаблона()) do begin

  Лексема := ПолучитьЛексему(Шаблон);
  case лексема of
    ТипЛексема1: ДобавитьЦифрыДляТипЛексема1(СписокСтрок);

  ...
  end
end