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

Первая

var s:string; i:integer;

begin

readln (s);

for i:=1 to length (s) do

if s[i]='.' then Delete (s, i, 1);

writeln (s);

readln;

end.

И вторая

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);

readln;

end.