Вообщем дана следующая задача:
Дана целочисленная квадратная матрица. Определить:
1) сумму элементов в тех столбцах, которые не содержат отрицательных элементов;
2) минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы.
Переставить строки матрицы в порядке неубывания элементов первого столбца.

Я решила только первых 2 задания, но и в них что-то неправильно работает. Помогите, пожалуйста разобраться и доделать задачу
Вот моё решение:

var a: array [1..100,1..100] of integer;
   b: array [1..100] of integer;
   i,j,n,s: integer;
   summ, min, ukaz: integer;
begin
  randomize;
  clrscr;
  writeln('Введите размерность матрицы->');
  readln(n);
  For i:=1 to n do
  begin
  For j:=1 to n do
        begin
        a[i,j] := random(10)-5;
        write (a[i,j]:2,' ');
        end;
        writeln;
        b[i]:= 0; min:=a[1,1];
  end;
 ukaz:=0;
 for j:=1 to n do
 begin
 s:=0;
 for i:=1 to n do
if A[i,j] >= 0 then inc(s, A[i,j])
  else
      begin
           s:=-1;
           ukaz:=ukaz+1;
           break
      end;
   if s >= 0 then writeLn(' Сумма в неотрицательном столбце-> ', s) else
   if ukaz=n then writeln('Положительных столбцов в матрице нет');
 end;
  writeln;
  writeln('Суммы диагоналей выше побочной диагонали(по модулю):');
  For j:=1 to n-1 do
  Begin
     summ := 0;
     For i:=1 to n-j do
        summ := summ + abs(a[i,n-j-i+1]);
     b[j] := summ;
     if abs(b[j])<min then min:=abs(b[j]);
     write(b[j],' ');
  end;

  writeln; writeln;
  writeln('Суммы диагоналей ниже побочной диагонали(по модулю):');
  For j:=2 to n do
  Begin
     summ := 0;
     For i:=j to n do
        summ := summ + abs(a[i,n-i+j]);
     b[j+n-2] := summ;
     if abs(b[j+n-2])<min then min:=abs(b[j+n-2]);
     write(b[j+n-2],' ');
  end;

  writeln;

For i:=1 to 2*n-2 do
  Begin
  end;    
  writeln;
  writeln('Минимум среди сумм модулей элементов диагоналей, параллельных побочной->',
    abs(min));
readkey;

end.

Ну, я не знаю, почему ты так чумаешь... Все правильно работает... Суммы находятся правильно, минимум вычисляется правильно... Только ... Когда ты копировала задачу отсюда:
Диагонали, параллельные побочной диагонали матрицы,

нижний цикл был закомментирован... Ты его зачем-то расскомментировала. Не стоило этого делать...

А по поводу сортировки - что-то такое:

Var k, T: Integer;
...
  For i := 1 To n Do
    For j := n DownTo i+1 Do
      If a[j-1, 1] > a[j, 1] Then
        For k := 1 To n Do Begin
          T := a[j-1, k]; a[j-1, k] := a[j, k]; a[j, k] := T
        End;

  { И печатаем результат }
  For i := 1 To n Do Begin

    For j := 1 To n Do
      Write(a[i, j]:4);

    WriteLn;
  End;