Отсортировать строки матрицы по возрастанию сумм положительных элементов каждой строки

const n = 10;
      m = 8;
var a: array [1..n, 1..m] of real;
    x: array [1..n] of real;
    i, j, k, p: integer;
    t: real;
begin
  randomize;
  writeln('Source matrix:');
  for i := 1 to n do
    begin
      x[i] := 0;
      for j := 1 to m do
        begin
          a[i, j] := (-9999 + random(19999)) / 100;
          write(a[i, j]:7:2);
          if a[i, j] > 0 then x[i] := x[i] + a[i, j]
        end;
      writeln
    end;
  for i := 1 to n - 1 do
    begin
      p := i;
      for j := i + 1 to n do if x[p] > x[j] then p := j;
      if p <> i
        then begin
          t := x[i];
          x[i] := x[p];
          x[p] := t;
          for j := 1 to m do
            begin
              t := a[i, j];
              a[i, j] := a[p, j];
              a[p, j] := t;
            end
        end;
    end;
  writeln('Sorted matrix:':7 * 2, 'Sum:':7 * m - 6);
  for i := 1 to n do
    begin
      for j := 1 to m do write(a[i, j]:7:2);
      writeln(' |', x[i]:8:2)
    end;
  readln
end.