Получить одномерный массив, далее найти посл.полож.эл-нт и отсортировать исходную матрицу

Program Laba_2;
 
uses crt;
 
const nmax=10;
 
type Matr=array [1..nmax, 1..nmax] of integer;
     Mas=array [1..nmax] of integer;
 
Procedure Hello();
begin
 
  Writeln('Цель программы: Получить одномерный массив, состоящий из сумм элементов, превосходящих по значению заданное пользователем число в соответствующих строках матрицы.');
  Writeln('В полученном векторе решить задачу поиска номера последнего положительного элемента.');
  Writeln('Отсортировать в матрице элементы каждой строки по убыванию значений элементов.');
  Writeln('Сначала заполните матрицу: ');
end;
 
Procedure Check ( var n, s: integer);
begin
  while (n > 10) or (n < 0) do begin
    Writeln('Ошибка, Вы ввели неправильное число, попробуйте ещё раз');
    s+=2;
    readln(n);
  end;
end;     
 
Procedure InputMatr (n, m, s: integer; var A: Matr);
begin
  for var i := 1 to n do 
    for var j := 1 to m do 
    begin
      gotoxy(2 + 6 * j, 12 + 2 * i);
      readln(A[i, j]);
    end;
end;
 
Procedure Select (n, m: integer; A: Matr; var B: Mas);
var
  c, j, i: Integer;
begin
  gotoxy(1 + 2 * j,22 + 2 * i);
  write('Введите целое число: ');
  readln(c);
  for i := 1 to n do 
    for j := 1 to m do 
      if A[i, j] > c then B[i] += A[i, j];
end;
 
Procedure OutPutMass (B: Mas; n, m, s: integer);
var j, i:integer;
begin
  gotoxy(44 + 10 * j,12 + 2 * i);
  Writeln('Результирующий массив: ');
  gotoxy(90 + 10 * j,12 + 6 * i);
  Writeln('Отсортированная матрица: ');
  for i:=1 to n do begin
    gotoxy(50 + 10 * j,12 + 2 * i);
    writeln(B[i] : 16);
  end;
end;
 
Function FindPlus ( var B: Mas; m, j: integer): integer;
begin
  j := m;
  while (j <= m) and (B[j] <= 0) do
    j := j - 1;
  if j <= m then FindPlus := j
  else FindPlus := 0;
end;
 
Procedure Qsort ( var A: Matr; n, m: integer);
Procedure Quick (l, r: integer); // Создаём подпроцедуру 
var i, j, v, q: integer; 
begin 
 for var o := 1 to n do begin 
 i := l; // Первый элемент сортировочного массива 
 j := r; // Последний элемент 
 q := A[o,(l+r) div 2]; // Складываем первый и последний элемент массива и делим попалам, отбрасываем остаток, полученная целая часть и есть индекс элемента стоящего по середине 
 repeat // Цикл repeat выполняется до того момента, пока условие until не станет истинным 
 while A[o,i] > q do inc(i); // Двигаемся до элемента, который находится в середине и увеличиваем значение i операцией (inc) она эквивалента i:=i+1; или i+=1;
 while A[o,j] < q do dec(j); // Двигаемся вниз до элемента по середине и уменьшаем значение j операцией (dec), то бишь j-=1; 
 if (i <= j) then begin // Если выполняется уловие, то элементы меняются местами 
 v := A[o,i]; 
 A[o,i] := A[o,j]; 
 A[o,j] := v; 
 inc(i); 
 dec(j);
 end; 
 until (i >= j); 
 if (l < j) then Quick(l,j); // Запускаем сортировку ещё раз, но уже только в левой части ~ рекурсия
 if (i < r) then Quick(i,r); // Далее проходит сортировка в правой части по тому же принципу
 end; 
end; 
begin 
 gotoxy(81,9);
 Quick(1,n); // Вызываем подпроцедуру 
end;
 
Procedure OutPutMatr (A: Matr; s, n, m: integer);       
begin
  for var i := 1 to n do begin
    for var j := 1 to m do begin
      gotoxy(101 + 6 * j,12 + 2 * i);    
      writeln (A[i,j]);
    end;
  end;
end;
 
 
var    A: Matr;
       B: Mas;
       n, j, m: integer;
       s := 10;
 
begin
  Hello();
  Write('Введите количество строк(max 10): ');
  Readln(n);
  Check(n, s);
  Write('Введите количество столбцов(max 10): ');
  Readln(m);
  Check(m, s);
  Writeln('Введите матрицу размером: ', n, ' * ', m);
  InputMatr(n, m, s, A);
  Writeln;
  Select(n, m, A, B);
  OutPutMass(B, n, m, s);
  Writeln;
  Writeln;
  Writeln;
  Writeln;
  Writeln;
  Write('Номер последнего положительного элементa результирующего массива: ');
  Writeln(FindPlus (B, m, j));
  Qsort (A, n, m);
  OutPutMatr(A, s, n, m);
  Writeln;
  Writeln;
  Writeln;
  Writeln;
  Writeln;
  Writeln;
  Readln();
end.