Проблема с сортировкой (Delphi 7)

[trinity19]

Задача состоит в том, что:
ан целочисленный массив {aj} j=1,...,n (n<41). Записать в массив {bj} j=1,...,m (m<41) положительные элементы массива {aj}, а в массив {xj} j=1,...,l(l<41) - отрицательные элементы {aj}. После упорядочить полученные массивы по не убыванию.
Проблема состоит в сортировке полученных массивов по не убыванию. Помогите, пожалуйста.

Вот мой код получения массивов:

program lab8_12;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;
const
  ct=41;

Type
  aj=array[1..ct] of Integer;
  bj=array[1..ct] of Integer;
  xj=array[1..ct] of Integer;
var

  i,j,k:Integer;
  a:aj;
  b:bj;
  x:xj;
  l:integer;

begin
  reset(input, 'input.txt');
  rewrite(output, 'output.txt');
  Writeln('Дано: ');
  for i:=1 to ct do begin
    read(a[i]);
     writeln('a[',i,']=',a[i],' ');
end;

Writeln('-----------------');
Writeln('Положительные элементы в массиве Bj');
for i:=1 to ct do
  if a[i] >= 0 then
    begin
      j := j+1;
      b[j] := a[i];
      writeln('b[',j,']=',b[j],' ');
    end;
writeln('-----------------');
Writeln('Отрицательные элементы в массиве Xj');

for i:=1 to ct do
  if a[i] < 0 then
    begin
      k := k+1;
      x[k] := a[i];
      writeln('x[',k,']=',x[k],' ');
    end;
end.

[Аватар]

Самый простой способ

for i:=1 to n-1 do
  for j:=i+1 to n do
    if m[j]<m[i] then begin c:=m[i]; m[i]:=m[j]; m[j]:=c; end;