type
  TTranslit = (Ru, En, Num, Sym);

function TranslitChar(s: char): TTranslit;
begin
   Result:=Sym;
   if (s>='А') and (s<='я') or (s='ё') or (s='Ё') then
      Result:=Ru;
   if (s>='A') and (s<='z') then
      Result:=En;
   if (s>='0') and (s<='9') then
      Result:=Num;
end;

function TranslitString(s: string; t: TTranslit): boolean;
var i: integer;
begin
   Result:=false;
   for i:=1 to Length(s) do
      if TranslitChar(s[i])=t then
      begin
         Result:=true;
         Exit;
      end;
end;

function TranslitRuEn(s: string; En: boolean): string;
const RuEn: array[0..1, 0..36] of string = (('щ', 'ё', 'ж', 'ц', 'ч', 'ш', 'ы', 'э',
         'ю', 'я', 'а', 'б', 'в', 'в', 'г', 'д', 'е', 'з', 'и', 'й', 'к', 'л', 'м',
         'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ъ', 'ы', 'ь', 'ь'),
        ('sch', 'yo', 'zh', 'ts', 'ch', 'sh', 'yi', 'ye', 'yu', 'ya', 'a', 'b', 'v',
         'w', 'g', 'd', 'e', 'z', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'r', 's',
         't', 'u', 'f', 'h', 'c', '''''', 'y', '''', '`'));
var i: integer;
    a, b: byte;
begin
   if En then
   begin
      a:=0;
      b:=1;
   end else
   begin
      a:=1;
      b:=0;
   end;
   for i:=Low(RuEn[0]) to High(RuEn[0]) do
      s:=StringReplaceNew(s, RuEn[a, i], RuEn[b, i], false, false);
   Result:=s;
end;

function StringReplaceNew(s, OldPattern, NewPattern: string; RegOld, RegNew: boolean): string;