Сортировка матрицы, помогите пжлста Опции

[kaktus]

НУжно отсортировать выделенные элементы произвольной матрицы по возрастанию(обозначены 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

[volvo]

Элементарно делается без доп. массива: берем любой метод сортировки, который работает с двумя соседними ячейками. К примеру, "пузырек" (кто-то говорит, что "пузырек" - это отстой, и непонятно зачем нужен? А вот нужен Во избежание написания десятиэтажных кодов), и:

...
  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;
...

N - число строк матрицы, M - число столбцов...