Решение задачи Matrix 46

program Matrix46;
var
  a:array [1..10,1..10] of integer;
  M, N, i, j, i2, i3, j2,j3:Integer;
 
begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);
 
 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;
 
 for  i:=1 to M do
  for j:=1 to N do
   begin
    j3:=0;
    for j2:=1 to N do if a[i,j]<a[i,j2] then inc(j3);
 
    i3:=0;
    for i2:=1 to M do if a[i,j]<a[i2,j] then inc(i3);
 
    if ((i3=M-1) and (j3=N-1)) then Writeln (j,':',i,' = ',a[i,j]);
   end;
end.