Замена букв на английские

m    : array['a'..'e'] of Char;

const
  trans : array [1..2, 1..66] of string[3] =
    (('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й',
      'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф',
      'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я',
      'А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ё', 'Ж', 'З', 'И', 'Й',
      'К', 'Л', 'М', 'Н', 'О', 'П', 'Р', 'С', 'Т', 'У', 'Ф',
      'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Ъ', 'Ы', 'Ь', 'Э', 'Ю', 'Я'),
     ('a', 'b', 'v', 'g', 'd', 'ye', 'yo', 'zh', 'z', 'i', 'j',
      'k', 'l', 'm', 'n', 'o', 'p', 'r', 's', 't', 'u', 'f',
      'kh', 'ts', 'ch', 'sh', 'sch', '`', 'y', '`', 'e', 'yu', 'ya',
      'A', 'B', 'V', 'G', 'D', 'Ye', 'Yo', 'Zh', 'Z', 'I', 'J',
      'K', 'L', 'M', 'N', 'O', 'P', 'R', 'S', 'T', 'U', 'F',
      'Kh', 'Ts', 'Ch', 'Sh', 'Sch', '`', 'Y', '`', 'E', 'Yu', 'Ya'));
var
  s : string;
  i, j : integer;
begin
  write('строка: ');
  readln(s);
  for i := length(s) downto 1 do
    for j := 1 to 66 do
      if s[i] = trans[1, j] then
      begin
        delete(s, i, 1);
        insert(trans[2,j], s, i)
      end;
  writeln('транслитерация: ', s);
  readln
end.