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

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.

я думаю что основанием будет число 7 

проверка: 7^2*1+7^1*2+7^0*2= 49+14+2=65