Дана матрица размером 6x9. найти среднее арифметическое наибольшего и наименьшегозначений ее элементов. turbo pascal

Const
 N = 6;
 M = 9;

var
 mas:array[1..N,1..M] of integer;
 max,min,j,i:integer;

begin
 max:=-maxint;
 min:=maxint;
 for i:=1 to N do
  for j:=1 to M do
  begin
   if max<mas[i,j] then
    max:=mas[i,j];
   if min>mas[i,j] then
    min:=mas[i,j];
  end;
 writeln((max+min)/2);
end.