матрица и сортировка

[aleko05]

задали написать программу нахождения вектора с помощью матрицы и оформить это через модуль. запнулся на одном куске.
Строки матрицы упорядочить по убыванию элементов её первого столбца и в качестве вектора принять главную диагональ преобразованной матрицы
вроде все и понятно, но не знаю, как при замене менять не числа, а целые строки по значению всего лишь одного числа, и как при этом выделить главную диагональ полученной матрицы.

Procedure CreateVector(n:TIndex;a:Matrix;var x:Vector);
var
m:real;
f:boolean;
i,j:Tindex;
begin
repeat
f:=false;
         for i:=1 to n-1 do
         begin
         if a[i][1]<a[i+1][1] then
                            begin
                            f:=true;
                            m:=a[i][j];
                            a[i][j]:=a[i+1][j];
                            a[i+1][j]:=m;
                            end;
         end;
        
until not f;
end;

[BDA]

Насчет сортировки.
Предпочитаю сортировку вида

for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then ...

Имхо, она будет чуть быстрее вашей.

Во-вторых, для сортировки строк, после того, как Вы определились, что нужно поменять i и j строку местами, нужно пройтись по всей строке и менять соответствующие элементы в массиве. Или же задать тип matrix как array[1..n] of vector. Тогда достаточно через доп переменную поменять местами два вектора-строки.

В-третьих, что бы заполнить вектор х, нужно пройтись циклом от 1 до n и присваивать i-тому элементу вектора [i,i] значение матрицы.

[aleko05]

спасибо, попробую