Работа с матрицами(паскаль)

[Марина1111]

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

[Hacker19_90]

for i := 1 to m do
begin
    max[i] := x[i,1];
    for j := 2 to n do
        if max[i] < x[i,j] then max[i] := x[i,j]
end;
repeat
    flag := false;
    for i := 1 to (m - 1) do
    begin
        if max[i] > max[i+1] then
        begin
            flag := true;
            max[i] := max[i] + max[i+1];
            max[i+1] := max[i] - max[i+1];
            max[i] := max[i] - max[i+1]
            for j := 1 to n do
            begin
                x[i,j] := x[i,j] + x[i+1,j];
                x[i+1,j] := x[i,j] - x[i+1,j];
                x[i,j] := x[i,j] - x[i+1,j];
            end;
        end;
    end;
until flag = false;