Процедуры. Найти среднее арифметическое минимальных элементов каждой из двух матриц

{Найти среднее арифметическое минимальных элементов каждой из двух матриц}
const
  n_max = 100;
 
type
  matrix = array [1..n_max, 1..n_max] of integer;
 
var
  x, y: matrix;
  q: real;
 
procedure CreateMatrix(var a: matrix; n, m: integer);
var
  i, j: integer;
begin
  for i := 1 to N do 
    for j := 1 to M do
      a[i, j] := -n div 2 + random(m);
end;
 
procedure PrintMatrix(a: matrix; n, m: integer);
var
  i, j: integer;
begin
  for i := 1 to N do 
  begin
    for j := 1 to M do
      write(a[i, j]:4);
    writeln
  end;
end;
 
procedure DoMatrix(a: matrix; n, m: integer; var s: real);
var
  k, i, j: integer;
  min: real;
begin
  min := a[1, 1];
  s := 0;
  for i := 1 to N do 
    for j := 1 to M do 
      if a[i, j] < min then
        min := a[i, j];
  k := 0;        
  for i := 1 to N do 
    for j := 1 to M do 
      if a[i, j] = min then
      begin
        inc(k);
        s := s + a[i, j];
      end;
  s := s / k;
end;
 
begin
  randomize;
  CreateMatrix(x, 2, 2);
  PrintMatrix(x, 2, 2);
  DoMatrix(x, 2, 2, q);
  writeln('Среднее арифметическое минимальных элементов 1-й матрицы: ', q);
  CreateMatrix(y, 8, 9);
  PrintMatrix(y, 8, 9);
  DoMatrix(y, 8, 9, q);
  writeln('Среднее арифметическое минимальных элементов 2-й матрицы: ', q);
end.

const
  n_max = 100;
 
type
  matrix = array [1..n_max, 1..n_max] of integer;
 
var
  x, y: matrix;
 
procedure CreateMatrix(var a: matrix; n, m: integer);
var
  i, j: integer;
begin
  for i := 1 to N do
    for j := 1 to M do
      a[i, j] := -n div 2 + random(m);
end;
 
procedure PrintMatrix(a: matrix; n, m: integer);
var
  i, j: integer;
begin
  for i := 1 to N do
  begin
    for j := 1 to M do
      write(a[i, j]:4);
    writeln
  end;
end;
 
procedure DoMatrix(a: matrix; n, m: integer; var min: integer);
var
  k, i, j: integer;
begin
  min := a[1, 1];
  for i := 1 to N do
    for j := 1 to M do
      if a[i, j] < min then
        min := a[i, j];
end;
 
var m1, m2 : integer;
begin
  randomize;
  CreateMatrix(x, 2, 2);
  PrintMatrix(x, 2, 2);
  DoMatrix(x, 2, 2, m1);
  writeln('Минимум первой матрицы = ', m1);
  CreateMatrix(y, 8, 9);
  PrintMatrix(y, 8, 9);
  DoMatrix(y, 8, 9, m2);
  writeln('Минимум второй матрицы = ', m2);
  writeln('Среднее арифметическое минимумов = ', (m1 + m2) / 2)
end.