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

program Matrix74;
type
  matrix = array [1..10,1..10] of integer;
 
var
  a:matrix;
  K, M, N, i, j:Integer;
 
Function CheckMatrixLocMin(var mat:matrix; X,Y:Integer):Boolean;
 Begin
  CheckMatrixLocMin:=true;
  if x>1 then
   if mat[x,y]>=mat[x-1,y] then CheckMatrixLocMin:=False;
  if x=mat[x+1,y] then CheckMatrixLocMin:=False;
  if y>1 then
   if mat[x,y]>=mat[x,y-1] then CheckMatrixLocMin:=False;
  if y=mat[x,y+1] then CheckMatrixLocMin:=False;
  if (y>1) and (x>1) then
   if mat[x,y]>=mat[x-1,y-1] then CheckMatrixLocMin:=False;
  if (y<N) and (x<M) then    if mat[x,y]>=mat[x+1,y+1] then CheckMatrixLocMin:=False;
  if (y>1) and (x<M) then    if mat[x,y]>=mat[x+1,y-1] then CheckMatrixLocMin:=False;
  if (y<N) and (x>1) then
   if mat[x,y]>=mat[x-1,y+1] then CheckMatrixLocMin:=False;
 end;
 
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
     if CheckMatrixLocMin(a,i,j) then a[i,j]:=0;
 
 for  i:=1 to M do
  begin
   for j:=1 to N do
    begin
     Write(' : ',a[i,j]);
    end;
   writeln(' : ');
  end;
end.