пример "micron" = "imrcno"
uses crt;
var s:string;
i:byte;
c:char;
begin
clrscr;
writeln('Введите строку');
readln(s);
i:=1;
while i<=length(s)-1 do{до предпоследнего}
begin
c:=s[i];
s[i]:=s[i+1];{обмениваем}
s[i+1]:=c;
i:=i+2;{перепрыгиваем через 1}
end;
write(s);
readln
end.