В строке все буквы «а» заменить буквой «б» и наоборот,если они есть

var
  s:string;
function PalWord(const str:string):boolean;
var
  i:byte;
begin
  i:=1;
  while (i<=length(str) div 2) and (str[i]=str[length(str)-i+1]) do 
    inc(i);
  if i>length(str) div 2 then PalWord:=true
  else PalWord:=false;
end;
begin
  write('Slovo->');
  readln(s);
  if PalWord(s) then writeln('Palindrom')
  else writeln('Ne palindrom');
end.

var
  Str: string;
  
function ResStr(Str: string): string;
var
  Res: string;
  i: integer;
begin
  Res:='';
  for i:=1 to length(Str) do
    if Str[i] in ['0'..'9'] then Res:=Res+Str[i];
  ResStr:=Res;
end;
 
begin
  writeln('Введите строку: ');
  readln(Str);
  writeln('Резуьтат: ', ResStr(Str));
end.

var
  Chislo: integer;
 
procedure Operations(Chislo: integer);
var
  Summa, Pr, n: integer;
begin
  Summa:=0; Pr:=1;
  while Chislo > 0 do
  begin
    n:=Chislo mod 10;
    inc(Summa, n);
    Pr:=Pr*n;
    Chislo:=Chislo div 10;
  end;
  writeln('Сумма цифр числа: ', Summa, '; Произведение: ', Pr);
end;
 
begin
  writeln('Введите число: ');
  readln(Chislo);
  Operations(Chislo);
end.

var
  Str: string;
  
function ResStr(Str: string): string;
var
  Res: string;
  i: integer;
begin
  Res:='';
  for i:=1 to length(Str) do
    if not (Str[i] in ['0'..'9']) then Res:=Res+Str[i];
  ResStr:=Res;
end;
 
begin
  writeln('Введите строку: ');
  readln(Str);
  writeln('Резуьтат: ', ResStr(Str));
end.