Работа со строками (2 задачи, Pascal)

[J78]

Здравствуйте! Помогите, пожалуйста, решить задачу:
Дана строка символов. Заменить в ней большие русские буквы на маленькие, а маленькие − на большие, остальные символы оставить без изменения.

[GetMax]

Const
  Mn:Set of Char = ['а'..'я'];
  Mn2:Set of Char = ['А'..'П'];
  Mn3:Set of Char = ['Р'..'Я'];
Var
  St:String;
  I:Byte;
begin
   Readln(St);
   For i:=1 to Length(St) do
   Begin
     If (St[i] in Mn) then St[i]:=UpCase(St[i])
     Else
     If (St[i] in Mn2) then St[i]:=Chr(Ord(St[i]) + 32)
     Else
     If (St[i] in Mn3) then St[i]:=Chr(Ord(St[i]) + 80)
   End;
   Writeln(St);
   Readln
End.

[Serge_Bliznykov]

а как же моя любимая буква Ё ?...


вот решение с буковкой Ё
к тому же простое и платформонезависимое
(т.е. не зависит от кодовой таблицы... - хотя последнее для Turbo Pascal не очень актуально,
как-то 866 стала стадартом русской кодовой таблицы...)

Const 
  sUpper : string = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
  sLower : string = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
Var
  St:String;
  i:integer;
begin
   Readln(St);
   For i:=1 to Length(St) do
   Begin
     if Pos(St[i],SUpper)>0 then St[i] := sLower[Pos(St[i],SUpper)]
     else
       if Pos(St[i],SLower)>0 then St[i] := sUpper[Pos(St[i],SLower)];
   end;

   writeln('Полученная строка: ',St);
   readln; 
end.

[J78]

GetMax и Serge_Bliznykov, огромное спасибо за помощь!
P.S. Serge_Bliznykov, ваш код - то, что надо, поэтому, я думаю, тему можно закрывать.