Дана строка-предложение. Зашифровать ее, поместив вначале все знаки, расположенные на четных

program zz1;
var s, s1:string; // задаем переменные строкового типа
i, m, k:integer; // задаем переменные целого типа
begin
write( введите строчку );
read(s); // вводим с клавиатуры строчку
s1:=;
for i:=1 to length(s) do // организуем цикл, в котором переберем все знаки от первого до заключительного
if i mod 2 = 0 then s1:=s1+s[i]; // проверяем, если номер знака четный, то добавляем его к новейшей строке
for i:=length(s) downto 1 do // организуем цикл, в котором переберем все знаки от заключительного до первого
if i mod 2 = 1 then s1:=s1+s[i]; // проверяем, если номер знака нечетный, то прибавляем его к новой строке
writeln( полученная зашифрованная строка = , s1); // выводим ответ
end.