Проблема с сортировкой Опции

[Serg_2206]

У меня задача есть вот такая задача: Дана квадратная матрица A(m x n), надо чтобы
отридцательные элементы столбцов, были отсортированы в самое начало эти столбцов
т.е. была вот такая матрица , а должна стать

                            1 2 3                 1 -5 -9 
                            4-5 6                 4  2  3
                            7 8-9                 7  8  6

У меня вот такой код, но что то он как надо не работает(не сортирует) помогите ошибку исправить.

Код

program matrix;
uses crt;
const n=2;
var
mas:array[1..n,1..n] of integer;
i,j,p,e:byte;
begin
clrscr;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(i,'-я строка ',j,'-й столбец:');
readln(mas[i,j]);
end;
end;
writeln;
for p:=1 to n do begin    
   for i:=1 to n-1 do begin  
      for j:=n-1 downto i do begin
          if mas[j,p]<0 then begin
            if mas[j,p]<mas[j-1,p] then begin
                  e:=mas[j,p];
                  mas[j,p]:=mas[j-1,p];
                 mas[j-1,p]:=mas[j,p];
            end;
          end;
      end;
   end;
end;
for i:=1 to n do
  begin
   for j:=1 to n do
     write(mas[i,j],' ');
     writeln;
  end;
  readln;
end.

[volvo]

Var
  T: Integer;
  curr: byte;
...
for p := 1 to n do begin

  curr := 0;
  for i := 1 to n do begin
    if mas[i, p] < 0 then begin

      T := mas[i, p];
      for j := i downto curr + 1 do
        mas[j, p] := mas[j - 1, p];
      inc(curr);
      mas[curr, p] := T;

    end;
  end;
end;

[Serg_2206]

Спасибо за помощь, усе работает