В одномерном массиве, состоящем из n целочисленных элементов: преобразовать массив таким образом, чтобы с начала располагались все положительные элементы, а потом — отрицательные — Pascal(Паскаль)

const n=10;

var 
a: array [1..n] of integer;
i,j,k:integer;

begin

for i:=1 to n-1
    do 
    begin
     a[i]:=5-random(10);
     write(' ',a[i]);
     end;
writeln();
for i:=1 to (n-1) do
   if (A[i]<0) then
       for j:=i+1 to n do
            if(A[j]>=0) then
            begin
                   k:=A[i];
                   A[i]:=A[j];
                   A[j]:=k;
                   break;
            end;
writeln('----');
for i:=1 to n-1
    do 
    begin
     write(' ',a[i]);
     end;
writeln();
end.