Сортировка строк матрицы по убыванию значений элементов

program Laba_2;
 
uses crt;
const
  nmax = 10;
 
var
  A: array [1..nmax, 1..nmax] of integer;
  b: array of integer;
  lp, j: integer;
  n, m: integer; {фактическое количество строк и столбцов матрицы}
 
Procedure InputMatr(n, m: integer);
begin
  for var i := 1 to n do 
    for var j := 1 to m do 
    begin
      gotoxy(5 + 10 * j, 13 + 2 * i);
      readln(a[i, j]);
    end;
end;
 
Procedure Select(n, m: integer);
var
  c: Integer;
begin
  writeln('Введите число:');
  readln(c);
  for var i := 1 to n do 
    for var j := 1 to m do 
      if a[i, j] > c then b[i - 1] += a[i, j];
end;
 
Procedure OutPutMass(n, m: integer);
var
  j: integer;
begin
  for var i := 1 to n do 
  begin
    gotoxy(60 + 2 * j, 38 + i);
    write(b[i - 1]:5);
  end;
  writeln;
end;
 
Procedure FindPlus(b: array of integer; m: integer; lp: integer; j: integer);
begin
  j := m;
  while (j <= m) and (b[j - 1] <= 0) do
    j := j - 1;
  if j <= m then lp := j
  else lp := 0;
  writeln(lp);
end;
 
Procedure Sort;
 
var
  i, v, min, imin: integer;
begin
  for var j := 1 to m-1 do begin
    min := A[i, j];
    imin := j;
    for i := j+1 to m do
       if A[i, j] < min then begin
          min := A[i, j]; imin := i;
       end;
    v := A[i, j]; A[i, j] := A[imin, j]; A[imin, j] := v;
  end;
end;

Procedure Sort;
 
var
  i, v, min, imin: integer;
begin
  for i:=1 to n do
  begin
    ....................
    здесь сортировка строки, которая у вас уже готова
    ....................
  end;
end;

program Laba_2;
 
uses crt;
const
  nmax = 10;
 
var
  A: array [1..nmax, 1..nmax] of integer;
  b: array of integer;
  lp, j: integer;
  n, m: integer; {фактическое количество строк и столбцов матрицы}
 
Procedure InputMatr(n, m: integer);
begin
  for var i := 1 to n do 
    for var j := 1 to m do 
    begin
      gotoxy(5 + 10 * j, 13 + 2 * i);
      readln(a[i, j]);
    end;
end;
 
Procedure Select(n, m: integer);
var
  c: Integer;
begin
  writeln('Введите число:');
  readln(c);
  for var i := 1 to n do 
    for var j := 1 to m do 
      if a[i, j] > c then b[i - 1] += a[i, j];
end;
 
Procedure OutPutMass(n, m: integer);
var
  j: integer;
begin
  for var i := 1 to n do 
  begin
    gotoxy(60 + 2 * j, 38 + i);
    write(b[i - 1]:5);
  end;
  writeln;
end;
 
Procedure FindPlus(b: array of integer; m: integer; lp: integer; j: integer);
begin
  j := m;
  while (j <= m) and (b[j - 1] <= 0) do
    j := j - 1;
  if j <= m then lp := j
  else lp := 0;
  writeln(lp);
end;
 
Procedure Sort;
 
var
  i, v, min, imin: integer;
begin
  for i := 1 to n do begin
  for var j := 1 to m-1 do begin
    min := A[i, j];
    imin := j;
    end;
    for i := j+1 to m do
       if A[i, j] < min then begin
          min := A[i, j]; imin := i;
       end;
    v := A[i, j]; A[i, j] := A[imin, j]; A[imin, j] := v;
   end;
end;
 
 
 
 
begin
  
  writeln('Приветствую вас!');
  writeln('Работу выполнил: Жуков Егор');
  writeln('Вариант № 8');
  writeln('Цель программы: Получить одномерный массив, состоящий из сумм элементов, превосходящих по значению заданное пользователем число в соответствующих строках матрицы.');
  writeln('В полученном векторе решить задачу поиска номера последнего положительного элемента.');
  writeln('Отсортировать в матрице элементы каждой строки по убыванию значений элементов.');
  writeln('Сначала заполните матрицу: ');
  writeln('Введите количество строк (max = 10): ');
  readln(n);
  writeln('Введите количество столбцов (max = 10): ');
  readln(m);
  writeln('Введите матрицу размером: ', n, ' * ', m);
  SetLength(b, n);
  InputMatr(n, m);
  Select(n, m);
  OutPutMass(n, m);
  FindPlus(b, m, lp, j);
  Sort;
end.

Procedure Sort;
 
var
  i, v, min, imin: integer;
begin
  for i := 1 to n do begin
  for var j := 1 to m-1 do begin
    min := A[i, j];
    imin := j;
    for var k := j+1 to m do
       if A[i, k] < min then begin
          min := A[i, k]; imin := k;
       end;
    v := A[i, j]; A[i, j] := A[i, imin]; A[i, imin] := v;
    end;
   end;
end;