Заменить буквы русского алфавита на соответствующие им буквы латинского алфавита

function Transliterate(const S : String) : String;
const
  A = [
    'ё', 'ж', 'х', 'ч', 'ш', 'щ', 'ю', 'я',
    'Ё', 'Ж', 'Х', 'Ч', 'Ш', 'Щ', 'Ю', 'Я'
  ];
var
  i, j, Len : integer;
begin
  //Определение длины результирующей строки.
  Len := Length(S);
  for i := 1 to Length(S) do begin
    //Учитываем буквы, которые преобразуются в пару букв.
    if S[i] in A then Inc(Len);
  end;
 
  //Устанавливаем длину для результирующей строки.
  SetLength(Result, Len);
 
  //Выполняем транслитерацию.
  j := 1;
  for i := 1 to Len do begin
    case s[i] of
      'a': Result[j] := 'a';
      'б': Result[j] := 'b';
      'в': Result[j] := 'v';
      'г': Result[j] := 'g';
      'д': Result[j] := 'd';
      'е': Result[j] := 'e';
      'ё':
        begin
          Result[j] := 'y';
          Inc(j);
          Result[j] := 'e';
        end;
      'ж':
        begin
          Result[j] := 'z';
          Inc(j);
          Result[j] := 'h';
        end;
      'з': Result[j] := 'z';
      'и': Result[j] := 'i';
      'й': Result[j] := 'y';
      'к': Result[j] := 'k';
      'л': Result[j] := 'l';
      'м': Result[j] := 'm';
      'н': Result[j] := 'n';
      'о': Result[j] := 'o';
      'п': Result[j] := 'p';
      'р': Result[j] := 'r';
      'с': Result[j] := 's';
      'т': Result[j] := 't';
      'у': Result[j] := 'u';
      'ф': Result[j] := 'f';
      'х':
        begin
          Result[j] := 'c';
          Inc(j);
          Result[j] := 'h';
        end;
      'ц': Result[j] := 'z';
      'ч':
        begin
          Result[j] := 'c';
          Inc(j);
          Result[j] := 'h';
        end;
      'ш':
        begin
          Result[j] := 's';
          Inc(j);
          Result[j] := 'h';
        end;
      'щ':
        begin
          Result[j] := 'c';
          Inc(j);
          Result[j] := 'h';
        end;
      'ъ': Result[j] := '''';
      'ы': Result[j] := 'y';
      'ь': Result[j] := '''';
      'э': Result[j] := 'e';
      'ю':
        begin
          Result[j] := 'y';
          Inc(j);
          Result[j] := 'u';
        end;
      'я':
        begin
          Result[j] := 'y';
          Inc(j);
          Result[j] := 'a';
        end;
      'А': Result[j] := 'A';
      'Б': Result[j] := 'B';
      'В': Result[j] := 'V';
      'Г': Result[j] := 'G';
      'Д': Result[j] := 'D';
      'Е': Result[j] := 'E';
      'Ё':
        begin
          Result[j] := 'Y';
          Inc(j);
          Result[j] := 'e';
        end;
      'Ж':
        begin
          Result[j] := 'Z';
          Inc(j);
          Result[j] := 'h';
        end;
      'З': Result[j] := 'Z';
      'И': Result[j] := 'I';
      'Й': Result[j] := 'Y';
      'К': Result[j] := 'K';
      'Л': Result[j] := 'L';
      'М': Result[j] := 'M';
      'Н': Result[j] := 'N';
      'О': Result[j] := 'O';
      'П': Result[j] := 'P';
      'Р': Result[j] := 'R';
      'С': Result[j] := 'S';
      'Т': Result[j] := 'T';
      'У': Result[j] := 'U';
      'Ф': Result[j] := 'F';
      'Х':
        begin
          Result[j] := 'C';
          Inc(j);
          Result[j] := 'h';
        end;
      'Ц': Result[j] := 'Z';
      'Ч':
        begin
          Result[j] := 'C';
          Inc(j);
          Result[j] := 'h';
        end;
      'Ш':
        begin
          Result[j] := 'S';
          Inc(j);
          Result[j] := 'h';
        end;
      'Щ':
        begin
          Result[j] := 'C';
          Inc(j);
          Result[j] := 'h';
        end;
      'Ъ': Result[j] := '''';
      'Ы': Result[j] := 'Y';
      'Ь': Result[j] := '''';
      'Э': Result[j] := 'E';
      'Ю':
        begin
          Result[j] := 'Y';
          Inc(j);
          Result[j] := 'u';
        end;
      'Я':
        begin
          Result[j] := 'Y';
          Inc(j);
          Result[j] := 'a';
        end;
      else Result[j] := s[i];
    end;
    Inc(j);
  end;
end;

type
  TAlphabet = Array[0..1,0..32] of String;
 
const
  Alphabet: TAlphabet = (('а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я'),
                         ('a','b','v','g','d','e','jo','zh','z','i','j','k','l','m','n','o','p','r','s','t','u','f','h','c','ch','sh','shh','#','y','''','je','ju','ja'));
function Translate(const S: String; CodeTable: TAlphabet): String;
var
  i,j: Integer;
  Translated: Boolean;
begin
 Result := '';
 for i := 1 to Length(S)
 do begin
    Translated := False;
    for j := 0 to 32
    do if Alphabet[0][j] = S[i]
       then begin
            Result := Result + Alphabet[1][j];
            Translated := True;
            end;
    if not Translated
    then Result := Result + S[i];
    end;
end;