Встроке символов заменить все буквы "а" на "б" (решить с составления новой строки)

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.

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.