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

[18192123]

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

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

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

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

[мисс_граффити]

кстати, ты можешь начальное значение k сделать равным 1, а при обмене писать a[i,k] то есть хранить номер ячейки, в которую собираешься записывать.