Подсчитать в массиве количество элементов, удовлетворяющих условию

const
  n = 4;
  m = 5;
 
var
  c: array[1..m, 1..n] of integer;
  j, i, K: integer;
  S: real;
 
begin
  randomize;
  S := 0;
  for i := 1 to m do
  begin
    for j := 1 to N do
    begin
      c[i, j] := -n * m div 2 + random(n * m);
      write(c[i, j]:5);
      S := S + c[i, j];
    end;
    writeln;
  end;
  S := S / N;
  writeln('Среднее: ', s);
  K := 0;
  for i := 1 to m do
    for j := 1 to N do
    begin
      if (C[I, J] >= 1 / 2 * S) and (C[I, J] <= 3 / 2 * S) then
        inc(k);
    end;
  writeln('Количество элементов, удовлетворяющих условию: ', k);
end.

const
  n = 4;
  m = 5;
type
  mx = array[1 .. m, 1 .. n] of integer;
 
function Average(v : mx) : real;
var i, j : integer;
begin
  Average := 0;
  for i := 1 to m do for j := 1 to n do Average := Average + v[i, j];
  Average := Average / m*n;
end;
 
var
  c: mx;
  j, i, K: integer;
  S: real;
  
 
begin
  randomize;
  for i := 1 to m do
  begin
    for j := 1 to N do
    begin
      c[i, j] := -n * m div 2 + random(n * m);
      write(c[i, j]:5);
    end;
    writeln;
  end;
  S := Average(c);;
  writeln('Среднее: ', s);
  K := 0;
  for i := 1 to m do
    for j := 1 to N do
    begin
      if (C[I, J] >= 1 / 2 * S) and (C[I, J] <= 3 / 2 * S) then
      begin
        writeln('C[', i, ',', j, '] = ', C[i, j]); // <--- Это тоже нужно
        inc(k);
      end;
    end;
  writeln('Количество элементов, удовлетворяющих условию: ', k);
end.