преобразование строк квадратной матрицы Опции

[18192123]

как можно перекинуть, например все отрицательные элементы, каждой строки квадратной матрицы в начало строк?

мне кажется, оттталкивать нужно от этого

k:=0;
if a[i,j]<0 then
   begin
    k:=k+1;
    b[i,k]:=a[i,j];
   end;

а дальше у меня ничего не получается...
объясните пожалуйста!