Ввести символьную строку и заменить все буквы «а» на буквы «б» и наоборот, как заглавные так и строчные — Pascal(Паскаль)

пример
ааббАБ
результат
ббааБА

var
a:string;
i:integer;
begin
readln(a);
for i:=1 to length(a) do
  case a[i] of
    'a':a[i]:='b';
    'b':a[i]:='a';
    'A':a[i]:='B';
    'B':a[i]:='b';
    end;
 writeln(a);
 readln;
 end.