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

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.