var
b:array[1..100,] of integer;
i,j, s1,s2,
    n             {кол-во строк}
   ,m            {кол-во столбцов}
   :integer;
begin
(*вводим размерность матрицы (n*m), 
  затем элементы самой матрицы*)
for k:=1 to n-1 do
 for i:=1 to n-k do
  begin
    s1:=0; {кол-во положительных элементов}
    s2:=0;
    for j:=1 to m do
     begin
       if (b[i,j]>0) then inc(s1);
       if (b[i+1,j]>0) then inc(s2);    
     end;
     if (s1>s2) then
        {меняем строки b[i,j] и b[i+1,j] местами}
  end;
end.

For i:=1 to n do For j:=1 to m do

Цитата(RAVE @ 18.04.2007 20:49)

For i:=1 to n do For j:=1 to m do

var
b:array[1..100,] of integer; {наша матрица}
 i,j,k,             {индексы}   
 s1,s2,          {сумма положительных элементов в двух соседних строках матрицы}
    n             {кол-во строк}
   ,m            {кол-во столбцов}
   :integer;

Program ex5;
Const m1=10;
      n1=10;
Type A=array[1..m1,1..n1] of integer;
Var U:A;
    i,j,s1,s2,T,k,m,n:integer;
begin
Writeln('ZADANIE MATRICI');
Readln(n,m);
For i:=1 to m do For j:=1 to n do begin
                                  Write('Znachenie U[',i,' ',j,']=');
                                  Readln(U[i,j]);
                                  end;
Readln;
Writeln('Tekushaya matrica');   
For i:=1 to m do begin For j:=1 to n do                           
                                  Write(U[i,j],' ');
                                  writeln;
                                  end;
Readln;                                                   {непосредственно вычисления, чуть подправленные под мою задачу}
For k:=1 to m-1 do For i:=1 to m-k do begin
                                  s1:=0;
                                  s2:=0;
                                  For j:=1 to n do begin
                                                   If (U[i,j]>0) then Inc(s1);
                                                   If (U[i+1,j]>0) then Inc(s2);
                                                   end;
                                  If (s1>s2) then begin
                                                  T:=U[i,j];
                                                  U[i,j]:=U[i+1,j];
                                                  U[i+1,j]:=T;
                                                  end;
                                  end;
Readln;
Writeln('Novaya Matrica');                {вывод получившейся матрицы}
For i:=1 to m do begin
                 For j:=1 to n do
                               Write(U[i,j],' ');
                               Writeln;
                               end;
Readln;
end.

If (s1>s2) then
  begin
     T:=s1;    {здесь ты просто меняешь местами количество положительных }
     s1:=s2;   {элементов в i-ой и (i+1)-ой сроках матрицы, а надо бы сами строки}
     s2:=T;
   end;

If (s1>s2) then
  For j:=1 to n do 
   begin
    T:=U[i,j];
    U[i,j]:=U[i+1,j];
    U[i+1,j]:=T; 
   end;

For k:=1 to m-1 do For i:=1 to m-k do begin