Помогите с масивом

Дано массив (X) размерностью n.
Нужно Превратить его так, чтобы в начале массива находились додатны элементы в порядке их следования в исходном массиве, а после них отрицательное элементы в порядке возрастания по значению, если последний элемент отрицательное и его абсолютное значение четное. В противном случае переставить элементы так чтобы произошла смена флангов, то есть первый элемент оказался на последнем месте, а последний на першиому месте. Второй элемент оказался на предпоследнем месте, а предпоследний на втором месте и т.д
Ограничения - создание вспомогательного массива предыдущее сортировки исходного массива позростанню (убиваню) его элементов не разрешается)))
Вот что вышло. Но не знаю как сделать смену флангов.
program lesh;
uses crt;
var x:array [1..99] of integer;
g,s,m,n,k,i:integer;
begin
clrscr;
textcolor(red);
writeln('vod n');
readln(n);
writeln('vvedite e-tu massiva');
for i:=1 to n do
readln(x);
writeln;
for i:=1 to n do
writeln('x[',i,']=',x);
if x[n]<0 then
begin
x[n]:=g;
s:=abs(g);
k:=s mod 2 ;

if k=0 then
begin

for i:=1 to n-1 do
if x>x[i+1] then
begin
m:=x;
x:=x[i+1];
x[i+1]:=m;
end;
writeln;
for i:=1 to n do
writeln('x[',i,']=',x);

end
else
readln;
end.