Матрица (Pascal)

[Алиса.]

Помогите пожалуйста. Дана матрица вещественных чисел. Упорядочить её строки по неубыванию их наибольших элементов.
Заранее спасибо.

[rubius2008]

for k:=1 to n do 
for i:=1 to n-1 do begin
  max1:=a[i,1]; for j:=1 to n do if a[i,j]>max1 then max1:=a[i,j];
  max2:=a[i+1,1]; for j:=1 to n do if a[i+1,j]>max2 then max2:=a[i+1,j];
  if max1>max2 then 
    for j:=1 to n do begin
       x:=a[i,j];
       a[i,j]:=a[i+1,j];
       a[i+1,j]:=x;
    end;
end;

Если нужен полный текст программы пиши в асю 600-927-970