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

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.

программа на паскале:

program xxx;       var a, b: real; begin  writeln('введите количество миль');   readln(a);   b: = a*1.6;   writeln('кол-во киллометров - ',b)end.

program xxx;

  var n, c, d, e, s : integer;

begin

    write('введите число');

    readln(n);

    c: = n div 100;

    d: =(n div 10) mod 10;

    e: = n mod 10;

    s: = c + d + e;

    writeln('сумма чисел =', s);

    readln

end.