Найти номера максимального и минимального элементов матрицы - PascalABC.NET

const N = 8; M = 5;
var A: array[1..N,1..M] of integer;
i, j, Min, Max,mxi,mxj,mni,mnj: integer;
begin
  randomize;
  for i:=1 to N do begin
    for j:=1 to M do begin
      A[i,j]:=random (20)-10;
      write(A[i,j]: 4);
    end;
    writeln;
  end;
  Max:=A[1,1];Min:=A[1,1];
  for i:=1 to N do
    for j:=1 to M do
      begin
      if A[i,j]>Max then
        begin
          Max:=A[i,j];
          mxi:=i;mxj:=j
        end;
      if A[i,j]<Min then
        begin
          Min:=A[i,j];
          mni:=i;mnj:=j
        end;
      end;
  writeln('Max: a[',mxi,',',mxj,']=', Max);
  writeln('Min: a[',mni,',',mnj,']=', Min);
  readln
end.