Напишите программу, которая осуществляет перекодирование из российской на английский язык и наоборот при вводе текста. Например, при наборе текста пользователь забыл переключить режим ввода русского алфавита и вместо введения «КУРСОВАЯ РАБОТА» был введен «REHCJDFZ HJ Pascal(Паскаль)

program Project1;
 
const
  Fn = 'file.txt';
var
  F : Text;
  S : String;
  i : Integer;
begin
  Assign(F, Fn);
  Rewrite(F);
 
  repeat
    Writeln('Введите строку:');
    Readln(S);
    for i := 1 to Length(S) do begin
      case S[i] of
        (*Верхний ряд клавиатуры, заглавные буквы.*)
        'Q' : S[i] := 'Й';
        'W' : S[i] := 'Ц';
        'E' : S[i] := 'У';
        'R' : S[i] := 'К';
        'T' : S[i] := 'Е';
        'Y' : S[i] := 'Н';
        'U' : S[i] := 'Г';
        'I' : S[i] := 'Ш';
        'O' : S[i] := 'Щ';
        'P' : S[i] := 'З';
        '{' : S[i] := 'Х';
        '}' : S[i] := 'Ъ';
        (*Верхний ряд клавиатуры, строчные буквы.*)
        'q' : S[i] := 'й';
        'w' : S[i] := 'ц';
        'e' : S[i] := 'у';
        'r' : S[i] := 'к';
        't' : S[i] := 'е';
        'y' : S[i] := 'н';
        'u' : S[i] := 'г';
        'i' : S[i] := 'ш';
        'o' : S[i] := 'щ';
        'p' : S[i] := 'з';
        '[' : S[i] := 'х';
        ']' : S[i] := 'ъ';
 
        (*...И т. д., продолжить для остальных клавиш.*)
 
        (*...*)
      end;
    end;
 
    (*Записываем преобразованную сроку в файл.*)
    Writeln(F, S);
 
    Writeln('Продолжить - Enter. Выход - люобй символ + Enter.');
    Readln(S);
  until S <> '';
 
  Writeln('Введённые строки записаны в файл: ', Fn);
  Readln;
 
  Close(F);
end.