Сортировка массива

[8edrius]

Помогите найти ошибку(исправить программу) пожалуйста!
Задано масив Q(15).Нужно переставить элементы массива так, чтобы сначала размещались положительные элементы,а дальше все отрицательные. Положительные элементы упорядочить в порядке возрастания, отрицательные в порядке убывания. Вывести заданый и сформированый массив.

const n=15;
var a:array[1..n] of integer;
*****n,i,j:byte;
*****x:integer;
begin
clrscr;
writeln(‘Zadanyj masyv’);
randomize;
for i:=1 to n do
**begin
***a[i]:=100-random(200);
***write(a[i]:3);
**end;
writeln;
writeln;
for i:=1 to n-1 do
if a[i]>0 then
**begin
***for j:=i+1 to n do
***if (a[i]>a[j])and(a[j]>0) then
****begin
*****x:=a[i];
*****a[i]:=a[j];
*****a[j]:=x;
****end
**end
else
**begin
***for j:=i+1 to n do
***if (a[i]<a[j])and(a[j]<0) then
****begin
*****x:=a[i];
*****a[i]:=a[j];
*****a[j]:=x;
****end
**end;
writeln('Сортировка положительных по возрастанию и отрицательных по убыванию');
for i:=1 to n do
write(a[i]:3);
readln
end.

она уже почти работает правильно, все сортируется, только нужно теперь сделать, чтоб все положительные сначала выводились, а потом все отрицательные...
Помогите!!!