Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных местах, а затем, в обратном порядке, все символы, расположенные на нечетных местах (например, строка «Программа» превратится в «ргамамроП»). — Pascal(Паскаль)

program Zadanie_4;

var
  Str, NewStr: string;
  i: integer;

begin
  WriteLn('Введите строку:');
  ReadLn(Str);
  for i := 1 to length(Str) do
    if (i mod 2) = 0 then
      NewStr := NewStr + Str[i];
  for i := length(Str) downto 1 do
    if (i mod 2) <> 0 then
      NewStr := NewStr + Str[i];
  WriteLn(NewStr);
  ReadLn;

end.