One way:
Formula: copy to clipboard
=LET(a,TOCOL(A2:A100,1),pos,SORT(FILTER(a,a>=0),1,-1),neg,SORT(FILTER(a,a<0)),v,VSTACK(pos,neg),h,HSTACK(v,SEQUENCE(ROWS(v))),
hs,XLOOKUP(a,INDEX(h,,1),INDEX(h,,2)),hs)