Невнимательная секретарша. Набирая текст слепым методом, машинистка, не отрываясь, смотрела в документ и поэтому не заметила, что работает, не включив русский шрифт. В результате русскоязычный документ оказался набранным символами латинского шрифта. Напишите программу, которая позволила бы, не перенабирая текста, перевести его на русский язык — Pascal(Паскаль)

program PascalGuru;

var
  i, p: integer;
  s, en, ru: string;

begin
  write('Vvedite stroky (angl. bukvami): ');
  readln(s);
  { ---------------- }
  en := '`qwertyuiop[]asdfghjkl;''\zxcvbnm,./~QWERTYUIOP{}ASDFGHJKL:"|ZXCVBNM<>?';
  { ru:='с©жгЄҐЈий§екдлў Їа®«¤¦н\пзб¬ЁвмЎо.р‰–“Љ…Ќѓ˜&#x2122;‡•љ”›‚ЂЏђЋ‹„†ќ/џ—‘Њ€’њЃћ,'; } { для FreePascal }
  ru := 'ёйцукенгшщзхъфывапролджэ\ячсмитьбю.ЁЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭ/ЯЧСМИТЬБЮ,';

  writeln;
  writeln(s);

  for i := 1 to length(s) do
    if pos(s[i], en) <> 0 then
    begin
      p := pos(s[i], en);
      s[i] := ru[p];
    end;

  writeln;
  writeln('RU: ', s);

  readln;

end.