ПОЖАЛУЙСТА ПОМОГИТЕ, КОМУ НЕТРУДНО!!! СТАВЛЮ МНОГО БАЛЛОВ!! Напишите программу, которая во введённой символьной строке заменяет все буквы а на буквы б и наоборот. Заглавные на заглавные, строчные на строчные.

PascalABC.Net var   str : string;   i : integer; begin   write('Введите строку: ');   readln(str);      for i := 1 to length(str) do     case str[i] of       'а' : str[i] := 'б';       'А' : str[i] := 'Б';       'б' : str[i] := 'а';       'Б' : str[i] := 'А';     end;     writeln(str);   end.