program PascalGuru;
 
var X:array[1..30,1..30] of integer;
    i,j,m,n:integer;
{--------------------------------------------}
function minmax:integer;
var i,j,min,max:integer;
    MINIM:array[1..30] of integer;
begin
for i:=1 to m do
    begin
    min:=X[i,1];
    for j:=2 to n do
     if X[i,j]<min then min:=X[i,j];
    MINIM[i]:=min;
    end;
 
max:=1;
 for i:=2 to m do
  if MINIM[i]>MINIM[max] then max:=i;
 
 
minmax:=max;
end;
{--------------------------------------------}
begin
write('strok M= '); readln (m); {считываем размер массива}
write('stolbcov N= '); readln (n); {считываем размер массива}
 
writeln ('Vvedite elementy massiva: ');
for i:=1 to m do
for j:=1 to n do begin
write ('X[',i,',',j,']='); readln (X[i,j]); end; {считываем сам массив}
 
 
write ('Vot vvedennyy vami massiv: ');
for i:=1 to m do begin writeln;
for j:=1 to n do write (X[i,j]:8); end;  {выводим массив}
 
writeln;writeln;
writeln ('Otvet (nomer stroki): ',minmax);
 
readln;
end.