x[i]:=k;

     k:=0;

     write(x[i]:5:1,' ');

end;

writeln;

writeln;

for i:=1 to 3 do

for j:=1 to n do

for h:=1 to n do

if a[i,j]<a[I,h] then

begin

     k:=a[i,j];

     a[i,j]:=a[I,h];

     a[I,h]:=k;

end;

for i:=1 to n do

begin

     for j:=1 to n do

     write(a[i,j]:7:1);

     writeln;

end;

writeln;

for i:=1 to n do

if x[i]>max then

begin

     imax:=i;

     max:=x[i];