преобразование букв, Б→М М→Б Опции

[compiler]

Помогите нужно решить задачу.
на входе буква(большая или маленькая)
на выходе обратная буква(Б→М; М→Б)
пример q →Q; Q→q;
мой нерабочий пример

uses crt;
var n : integer;
    m : char;
begin
     ClrScr;
     n := 0;
     n := ord(readkey);
     if (n-10000) mod 10 =0
         then
             begin
                   n := n+100000;
             end
         else
             begin
                   n := n-100000;
         end;
     m := chr(n);
     writeln(n);
     readln(m);
end.