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

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.