Создайте программу которая кодирует введённый с клавиатуры текст, переставляет соседние символы, затем выводит полученный текст на экран

Var s:string;
i,k:integer;
begin;
readln(s);
i:=1;
while i<=length(s)-1 do
 begin;
  swap(s[i],s[i+1]);
  i:=i+2;
 end;
write(s);
end.