Var
 a:array[1..15,1..15] of integer;
 k:array[1..15] of Byte;
 i,j,n,max,x:integer;
BEGIN
 Write('Vvedite razmernost massiva ');
 Readln(n);
 for i:=1 to n do
  for j:=1 to n do
   begin
    write('A[',i:2,',',j:2,']= ');
    readln(a[i,j]);
   end;
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:5);
   writeln;
  end;
 writeln;

 for i:=1 to n do
  begin
   max:=a[i,1];
   k[i]:=1;
   for j:=1 to n do
    begin
     if a[i,j]>max then
      begin
       max:=a[i,j];
       k[i]:=j;
      end;
    end;
  end;

 for i:=1 to n do
  begin
   x:=a[i,i];
   a[i,i]:=a[i,k[i]];
   a[i,k[i]]:=x;
  end;

 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:5);
   writeln;
  end;

 readln;
END.