Перестановка элементов в матрице: отрицательные поставить в начало, а положительные после них - Turbo Pascal

Формулировка задачи:

Никак не могу сообразить алгоритм задачи: Есть матрица(размерность любая),с неё нужно сделать вектор Х. Компоненты вектора X - среднее арифметические значения элементов i-х столбцов матрицы, в строках которой отрицательные элементы переставлены в начале, а положительные - после них. Если не сложно,объясните как отрицательные поставить в начало,а положительные после них

Решение задачи: «Перестановка элементов в матрице: отрицательные поставить в начало, а положительные после них»

Листинг программы

for i:=1 to m do
 begin
  k:=0;
  for j:=1 to n do
  if a[i,j]<0 then
   begin
    k:=k+1;
    x:=a[i,j];
    for p:=j downto k+1 do
    a[i,p]:=a[i,p-1];
    a[i,k]:=x;
   end;
 end;

Объяснение кода листинга программы

В данном коде происходит перестановка элементов в матрице.

В первой строке кода используется цикл for, который выполняется от 1 до m, где m - это размер матрицы.
Во внутренней части цикла используется другой цикл for, который начинается с 1 и продолжается до n, где n - это размер матрицы.
Внутри второго цикла проверяется условие if a[i,j]<0, где a[i,j] - это элемент матрицы. Если условие истинно, то выполняются следующие действия.
Увеличивается счетчик k на 1.
Записывается значение x в переменную a[i,k].
Цикл for повторяется от j до k+1, с шагом -1. Это означает, что элементы матрицы, начиная с j+1, перемещаются влево.
После завершения внутреннего цикла, значение x записывается в a[i,k].
Код внутри блока if заканчивается, и цикл for продолжает выполнение со следующей итерацией.
Цикл for завершается, когда i становится равным m. Таким образом, данный код переставляет элементы матрицы, делая так, что все отрицательные элементы оказываются в начале матрицы, а положительные - после них.