Переставить элементы в массиве таким образом, чтобы сначала следовали все отрицательные числа

const n=10;
var a:array[1..n] of integer;
    i,j:integer;
begin
 randomize;
 writeln('A:');
 for i:=1 to n do
  begin
   a[i]:=-10+random(21);
   write(a[i]:4)
  end;
 writeln; 
 for i:=1 to n do
  for j:=1 to n-i do
   if (a[j]>=0)and(a[j+1]<0) 
    then
     begin
      a[j]:=a[j]+a[j+1];
      a[j+1]:=a[j]-a[j+1];
      a[j]:=a[j]-a[j+1]
     end;
  writeln('A'':');   
  for i:=1 to n do write(a[i]:4)
end.

const n=10;
var
  a:array[1..n] of integer;
  i, j, T:integer;
begin
  write('заполните массив:');
  for i:=1 to n do read(a[i]);
   For i := 1 To n Do
     For j := n-1 DownTo i Do
        If (a[j+1] * a[j] < 0) and (a[j] > 0) Then Begin
          T := a[j+1]; a[j+1] := a[j]; a[j] := T
        End;
   for i:=1 to n do write(a[i]:5);
end.

const n=10;
var
  a:array[1..n] of integer;
  i, j, T:integer;
begin
  write('заполните массив:');
  for i:=1 to n do read(a[i]);
   For i := 1 To n Do
     For j := n-1 DownTo i Do
        If (a[j+1] < 0) and (a[j] >= 0) Then Begin
          T := a[j+1]; a[j+1] := a[j]; a[j] := T
        End;
   for i:=1 to n do write(a[i]:5);
end.