Дана строка, состоящая из букв a, b и c. Поменяйте в ней все буквы a на b, а b — на a. Строка: bbaaccbccacbbacccbaccacacbbbaabacaaccbbcbcbbccacbaaabaabcaacaaaabbacbcbabbaaacbcbbacccbcabcbbbaacbac

Var
  s:string;
  i,n:integer;
begin
  Writeln(Введите строку); Readln(s);
  n:=Length(s);
  for i := 1 to n do
    case s[i] of
    a:s[i]:=b;
    b:s[i]:=a
    end;
  Writeln(Результат замены);
  Writeln(s)
end.

Тестовое решение:
Введите строку
bbaaccbccacbbacccbaccacacbbbaabacaaccbbcbcbbccacbaaabaabcaacaaaabbacbcbabbaaacbcbbacccbcabcbbbaacbac
Результат замены
aabbccaccbcaabcccabccbcbcaaabbabcbbccaacacaaccbcabbbabbacbbcbbbbaabcacabaabbbcacaabcccacbacaaabbcabc