Сортировка строк матрицы Опции

[SunDevil]

Есть задача: вводим матрицу 4 на 4 с клавиатуры, а прога должна отсортировать ВСЕ СТРОКИ матрицы по убыванию методом подсчета.
Нем огу реализовать эту процедуру сортировки, ПОМОГИТЕ, ПЛИЗ!

[volvo]

Может быть, вот так:

  for j := 1 to m do
    for i := 1 to n do
      for k := 1 to i do
        if a[i, j] < a[k, j] then begin
          t := a[i, j];
          a[i, j] := a[k, j];
          a[k, j] := t;
        end;