{Programma atrod elementu,kursh ir
mazakais rinda, bet lielakas kolonna}

uses crt;
const nn=10; mm=10;
type matrix=array[1..nn,1..mm] of integer;
var a:matrix;
    i,j,k,l,n,m,max,min,minj,sk:integer;
    paz:boolean;

    procedure readmatrix( var a: matrix; var n, m :integer);
    var i,j : integer;
    begin
     repeat write('Ievadi rindu skaitu: ');readln(n)
     until (n>0) and (n<=nn);
     repeat write('Ievadi kolonnu skaitu: ');readln(m)
     until (m>0) and (m<=mm);
     for i:=1 to n do begin
      for j:=1 to m do begin
       writeln('A[',i,j,']= '); readln(a[i,j])
      end end
    end;

    procedure printmatrix(a :matrix; n,m: integer);
    var i,j,k: integer;
    begin for i:=1 to n do begin
      for j:=1 to m do write(a[i,j]:6);
       writeln;
      end
    end;

begin
clrscr;
readmatrix(a,n,m);
writeln;
printmatrix(a,n,m);
sk:=0;
for i:=1 to n do begin
                  min:=a[i,1];
                  minj:=1;
                  for j:=2 to m do
                      if a[i,j]<min then begin
                                         min:=a[i,j];
                                         minj:=j;
                                         end;
                  paz:=true;
                  for k:=1 to n do if a[k,minj]>a[i,minj] then
                  paz:=false;
if paz then begin writeln(i,'. rinda un ',minj,'. kolonna');
                  sk:=sk+1;
                  end;
end;
if sk=0 then writeln('Nav atrasti elementi ar uzdoto ipasibu!');
readkey
end.