Написать программу...

Написать программу для паскаля. Дан массив x размера n(n=10) целыхчисел, содержащий как положительные, так и отрицательные элементы. Упорядочить
массив следующим образом: сначала идут отрицательные числа, упорядоченные по
невозрастанию, потом положительные, упорядоченные по неубыванию.

 

Program gt;
var  A,B,C:array[1..1000]of longint;
  p,l,n,i,j,k,w:longint;
begin
n:=10;
for i:=1 to n do
read(A);
k:=0;w:=0;
for i:=1 to n do
begin
if(A<0)then begin
k:=k+1;b[k]:=a;
end;
if(A>0)then begin
w:=w+1;
c[w]:=a;
end;
end;
for i:=1 to k-1 do
for j:=1 to k-i do
begin
p:=b[j];l:=b[j+1];
if b[j]<b[j+1] then begin
b[j]:=l;b[j+1]:=p;
end;
end;
for i:=1 to k do
write(b,' ');
for i:=1 to w do
write(c,' ');
end.