сортировка матрицы и вывод строк, помогите найти ошибку,пожалуйста. Опции

[Ellsa]

знаю,что много раз здесь уже такое решалось.Но я не могу найти ошибку у себя....
Помогите,пожалуйста,если можете.
Задание:
переставить в каждом столбце прямоугольной матрицы все отрицательные элементы в конец столбца.Распечатать часть полученной матрицы,состоящую из n первых строк,не имеющих отрицательных элементов.

 program z9;
 const n=5;m=4;
 type matr=array [1..n,1..m] of real;
 var a:matr;b:real;
 i,j,k,l1:integer;
 begin
 for i:=1 to n do
 for j:=1 to m do
 readln(a[i,j]);
          for j:=1 to n do
          begin
           for i:=2 to n do


       if a[i-1,j]<a[i,j] then
       begin
       b:=a[i-1,j];a[i-1,j]:=a[i,j];
       a[i,j]:=b;
       end; end;
        repeat
 for i:=1 to n do
 for j:=1 to m do
        if a[i,j]<0 then l1:=i
        until l1<>0;
        for i:=1 to l1-1 do
        for j:=1 to m do
        writeln(a[i,j]);

 end.

я ввожу матрицу:
1 2 3 4
7 8 -2 9
-10 3 -2 4
1 0 -1 2
0 1 0 1


мне выдает:

7 8 3 9
1 3 -2 4
1 2 -1 4
0 1 0 2



я делала отдельно сортировку,без вывода строк,а с выводом матрицы....он по-прежнему считает все верно,кроме выделенных элементов.


и строки по сути он не те выводит....я думала задать просто l1 номер строки с первым отрицательным элементом...но....

Сообщение отредактировано: Ellsa - 12.01.2007 13:44

[Ellsa]

но если отсортировать столбцы по убыванию,то все отрицательные элементы окажутся внизу.Разве нет?