Написать программу, которая в заданном тексте меняет все вхождения символа «а» на «б» и «б» на «а» («шайба»-> «шбиаб») — Pascal(Паскаль)

program Project1;
 
{$APPTYPE CONSOLE}
 
  var s:string;
      i:integer;
begin
Write('Cтрока = ');
Readln(s);
 
For i:=1 to Length(s) do
If s[i]='а' then s[i]:='б'
else
If s[i]='б' then s[i]:='а';
 
Writeln(s);
Readln;
end.

uses crt;
var
   s:string;
   i:integer;
begin
readln(s);
for i:=1 to length(s) do begin
if s[i]='а' then s[i]:='б'
else if s[i]='б' then s[i]:='а';
end;
writeln(s);
readln;
end.