Const
 N=5;

Var
 A,B:Array[1..N, 1..N] of Integer;
 i,j,Imax,Jmax,Amax,Sum:Integer;

Begin
 Randomize;
 Sum:=0;
 Amax:=-1;
 Writeln('Matrix:');
 for i:=1 to N do
  begin
   for j:=1 to N do
    begin
     A[i,j]:=Random(10);
     Write(A[i,j]:4);
     if A[i,j]>Amax then
      begin
       Amax:=A[i,j];
       Imax:=i;
       Jmax:=j;
      end;
    end;
   writeln;
  end;
 writeln;
 writeln('Maximal element is A[',Imax,',',Jmax,'] = ',A[Imax,Jmax]);
 writeln;

 if Jmax>Imax then
  begin
   Writeln('Transposed matrix:');
   for i:=1 to N do
    begin
     for j:=1 to N do
      begin
       B[i,j]:=A[j,i];
       write(B[i,j]:4);
      end;
     writeln;
    end;
  end
 else
  begin
   for i:=1 to N do
    Inc(Sum,A[i,Jmax]);
   for j:=1 to N do
    Inc(Sum,A[Imax,j]);
   writeln('Sum = ',Sum);
  end;
 Readln
End.