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

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.