Сравнение строк с транслитерацией (с символами из разных алфавитов)

Обработка содержит две функции

СравнитьСтрокиСТранслитерацией(Строка1,Строка2)   и    СравнитьСимволыСТранслитерацией(С1,С2)

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

В функции СравнитьСимволыСТранслитерацией(С1,С2) содержится ТЗ соответствий символов разных алфавитов, ее можно дополнить и другими символами, например «точка» и «запятая».

Функции лежат в модуле обработки. В форме реализован пример использования.

Доп: Добавил сравнение на «вхождение» одной строки в другую, тоже с учетом транслитерации.
В разных базах может быть разная длина кода, напрмер в одной базе код «АВС123456ААА», а в другой «АВС123456А». В этом случае обработка вернет «Вхождение» вместо «Истина или Ложь».
Проверяется по принципу Строка1Н = Лев(Строка1,СтрДлина(Строка2));
т.е. строки «АВС123456ААА»,  «ААААВС123456» вернут ложь…. если надо, допишите сами, мне нужно было только такое условие.

Доп2: Предыдущая версия очень медленно обрабатывала большие объемы данных. Оптимизировал.
Таблица соответствия символов формируется отдельной функцией (т.е. вне цикла)
Убрал лишние циклы.