1. Составьте программу, которая во введенном с клавиатуры слове заменит букву "А" на букву "И" и, наоборот, букву "И" на букву "А".

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.