Закодировать текст, меняя местами соседние символы…

Program Encoding; Var s: String; tmp: Char; i: Integer; BeginWriteLn ('Введите строку: '); ReadLn (s); i: =1; While i < Length (s) DoBegintmp: =s[i]; s[i]: =s[i+1]; s[i+1]: =tmp; i: =i+2; End; WriteLn ('Результат: '); WriteLn (s); ReadLn; End.