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

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