program p31b_5;
uses crt;
var a:array[1..100,1..100]of integer;
    l:array[1..100]of byte;
    n,m,i,j,mr:byte;

begin
 ClrScr;
 Writeln('Introdu dimensiunile tabloului: IxJ');readln(m,n);
 {randomize; for i:=1 to n do for j:=1 to m do a[i,j]:=random(100);}
 for i:=1 to n do for j:=1 to m do begin
  write('A[',i,',',j,']=');readln(a[i,j]);
 end;
 clrscr;
 writeln;
 for i:=1 to m do l[i]:=1;
 for j:=1 to m do for i:=2 to n do if a[i,j]<a[l[j],j] then l[j]:=i;
 MR:=1;
 for i:=2 to m do if a[l[i],i]>a[l[mr],mr] then mr:=i;

 for i:=1 to n do for j:=1 to m do begin
  if (j=mr)and(i=l[mr]) then textcolor(12)else textcolor(10);{Poate fi exclus}
  Write(a[i,j]:5);
  if j=m then writeln;
 end;
Textcolor(15);  {Poate fi exclus}
writeln;
Writeln(' A[',l[mr],',',mr,']=',a[l[mr],mr]);
readkey
end.