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

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.

64*48*12*8=294,912- обьем в байтах 1 стр