Сортировка строк матрицы Опции

[Симпотяжка]

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

[volvo]

const
  nRow = 3;
  nCol = 4;

  number = 10;

var
  a: array[1 .. nRow, 1 .. nCol] of integer;
  i, j, k, s, T: integer;

begin
  for i := 1 to nRow do
    begin
      s := 0;
      writeln('ряд #', i);
      for j := 1 to nCol do
        begin
          write('a[', i, ', ', j, '] = ');
          readln(a[i, j]);
          if a[i, j] > 0 then
            s := s + a[i, j] { считаем сумму для положительных чисел }
        end;

     { если сумма превысила заданное число,
        сразу сортируем строку по убыванию }
      if s > number then
        begin
          for j := 1 to nCol do
            for k := j to nCol do
              if a[i, j] < a[i, k] then
                begin
                  T := a[i, j];
                  a[i, j] := a[i, k];
                  a[i, k] := T
                end;
        end;
    end;

  { печатаем результат }
  for i := 1 to nRow do
    begin
      for j := 1 to nCol do
        write(a[i, j]:4);
      writeln
    end;

end.

[Симпотяжка]

Спасиба ты спас мне жизнь чмак