Решить в паскале составьте алгоритм замены в какой-нибудь величине всех букв "а" на буквы "б" и наоборот (при такой замене,например, из слова "баба" должно получиться слово "абаб") выведите полученную строку на экран

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