проблема в транлитерации заменой

[Noor]

Подскажите как решить проблему при транслитерации заменой,
вот есть функция

function Translit(const Str: string): string;
const
  RArrayL = 'f,dult`;pbqrkvyjghcnea[wxio]sm''''.z';
  RArrayU = 'F<DULT`;PBQRKVYJGHCNEA[WXIO]SM''''>Z';

  colChar = 33;
  arr: array[1..2, 1..ColChar] of string =
  (('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й',
    'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф',
    'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я'),
    ('А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ё', 'Ж', 'З', 'И', 'Й',
    'К', 'Л', 'М', 'Н', 'О', 'П', 'Р', 'С', 'Т', 'У', 'Ф',
    'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Ъ', 'Ы', 'Ь', 'Э', 'Ю', 'Я'));
var
  i: Integer;
  LenS: Integer;
  p: integer;
  d: byte;
begin
  result := '';
  LenS := length(str);
  for i := 1 to lenS do
  begin
    d := 1;
    p := pos(str[i], RArrayL);
    if p = 0 then
    begin
      p := pos(str[i], RArrayU);
      d := 2
    end;
    if p <> 0 then
      result := result + arr[d, p]
    else
      result := result + str[i];
  end;
end;

все буквы преобразовываются нормально, кроме буквы "z->я" и "Z->Я", они почему то преобразовываются в "z -> A" и "Z -> d&E или вылетает с ошибкой"

---------------------------------
Тему можно закрыть, вопрос решился !(if_then_else рулит)