1. составьте программу, которая во введенном с клави¬атуры слове заменит букву «а» на букву «и» и, наоборот, букву «и» на букву «а».

var
s:string;
i:integer;
begin
writeln('Введи строку:');
readln(s);
for i:=1 to length(s) do
if (s[i]='А')then  s[i]:='И' else
if (s[i]='а')then  s[i]:='и' else
if (s[i]='И')then  s[i]:='А' else
if (s[i]='и')then  s[i]:='а';
writeln(s);
end.