Составить программу, которая в заданном тексте букву "а" заменяет ** букву "о", а букву...

Question

Составить программу, которая в заданном тексте букву "а" заменяет на букву "о", а букву "о" — на букву "а".

Answer 1

Var
  S : String;
  i : Byte;
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.