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

uses crt;
var s,sn: string;
    i,j,k: byte;
begin
write('s='); readln(s); sn:='';
i:=length(s); k:=0;
if length(s) mod 2=0 then j:=length(s) div 2
   else j:=length(s) div 2+1;
for i:=length(s) downto j do
    begin
    sn:=sn+s[i];
    if k<length(s) div 2 then
       begin
       inc(k);
       sn:=sn+s[k];
       end;
    end;
writeln(sn);
readln;
end.