Зашифровать введенную с клавиатуры строку, поменяв местами первый символ со вторым, третий с четвертым и т.д. Провести дешифровку — Pascal(Паскаль)

var
  s:string;
  i:integer;
  temp:char;
begin
  readln(s);
  for i:=1 to length(s)-1 do
    if odd(i) then
    begin
      temp:=s[i];
      s[i]:=s[i+1];
      s[i+1]:=temp
    end;
  writeln(s)
end.