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

program zz1;

var

  s: string; // задаем переменную строкового типа

  i, k: integer;  // задаем переменную целого типа

  f: char; // задаем переменную символьного типа

begin

  write(\' введите строку \');

  read(s);  // вводим с клавиатуры строку

  for i := 1 to length(s) - 1 do  // организуем цикл, в котором переберем все символы от первого до предпоследнего

    if i mod 2 = 1 then 

    begin

      f := s[i]; // меняем соседние символы местами

      s[i] := s[i + 1];

      s[i + 1] := f;

    end;

  write(\' полученная строка = \', s); // выводим ответ

end.