Поменять местами четные и нечетные символы в строке — Pascal(Паскаль)

пример "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.