[san-46]

Код:

function Transliterate(const Source: String): String;
var
  I, M, Index: Integer;
begin
  Result := '';
  for I := 1 to Length(Source) do
  begin
    M := 1;
    while M <= 66 do
    begin
      if Source[i] = CYRILLIC_SYMBOLS[M] then
      begin
        Result := Result + LATIN_SYMBOLS[M];
        break;
      end;
      Inc(M);
    end;
    if M >= 66 then
      Result := Result + Source[i];
  end;
end;