НУжно отсортировать выделенные элементы произвольной матрицы по возрастанию(обозначены y)
y y y y y
y x x x y
y x x x y
y x x x y
y x x x y
...N - число строк матрицы, M - число столбцов...
count := 2 * n + (m - 2);
for i := 1 to count do begin
ii := n; jj := m; pass := 1;
for j := count downto i + 1 do begin
ii_pred := ii; jj_pred := jj;
case pass of
1: begin dec(ii_pred); if ii_pred = 1 then pass := 2; end;
2: begin dec(jj_pred); if jj_pred = 1 then pass := 3; end;
3: begin inc(ii_pred); if ii_pred = n then pass := 4; end;
end;
if a[ii_pred, jj_pred] > a[ii, jj] then begin
T := a[ii_pred, jj_pred];
a[ii_pred, jj_pred] := a[ii, jj];
a[ii, jj] := T;
end;
ii := ii_pred; jj := jj_pred;
end;
end;
...