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

[Павел]

Одному знакомому дали задание:
"... для каждой матрицы отсортировать столбцы в порядке возрастания их максимальных эелементов."
Может кто подскажет код?

[virt]

Код

program sort_mart_bu_max;
var a:array[1..10,1..10]of integer;
   b:array[1..10]of integer;
   i,j,k,n:integer;
   vr:integer;
begin
  read(n);
  for i:=1 to n do
  for j:=1 to n do
     read(a[i,j]);
  for i:=1 to n do b[i]:=a[1,i];
  for i:=1 to n do
  for j:=1 to n do
      if b[j]<a[i,j] then b[j]:=a[i,j];
  for i:=1 to n-1 do
     for j:=i+1 to n do
     if (b[i]>b[j]) then
        begin
           vr:=b[i];b[i]:=b[j];b[j]:=vr;
           for k:=1 to n do
           begin
              vr:=a[k,i];
              a[k,i]:=a[k,j];
              a[k,j]:=vr;
           end;
        end;
  for i:=1 to n do
  begin
     for j:=1 to n do write(a[i,j],' ');
     writeln;
  end;
end.

[Павел]

Большущее спасибо, все работает.