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

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.