Найти среднее значение элементов массива

{находим среднее арифметиеское}
sum := 0;
for i := 1 to N do
  sum := sum + a[i];
sr := sum / N;
{отнимаем от всех элементов его значение}
for i := 1 to N do
  a[i] := a[i] - sr;

for i := 1 to N do
  if a[i] > m then
  begin
    WriteLn(a[i]);
    break;
  end;

const
  N = 10;
var
  a,b,c: array [1..N] of integer;
  Bmax,Cmax,i: integer;
begin
  Bmax := 0;
  Cmax := 0;
  WriteLn('Array A:');
  for i := 1 to N do
  begin
    a[i] := Random(10) - 5;
    if odd(i) then
    begin
      Inc(Cmax);
      c[Cmax] := a[i];
    end
    else
    begin
      Inc(Bmax);
      b[Bmax] := a[i];
    end;
    Write(a[i], ' ');
  end;
  WriteLn;
  WriteLn('Array B:');
  for i := 1 to Bmax do
    Write(b[i], ' ');
  WriteLn;
  WriteLn('Array C:');
  for i := 1 to Cmax do
    Write(c[i], ' ');
  ReadLn;
end.

uses
  Crt;
const
  N = 4;{êîëè÷åñòâî ñòðîê}
  M = 4;{êîëè÷åñòâî ñòîëáöîâ}
var
  a: array [1..N, 1..M] of integer;
  b: array [1..M] of integer;
  i,j,sum:integer;
begin
  ClrScr;
  WriteLn('Èñõîäíàÿ ìàòðèöà:');
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i,j] := random(8) - 4;
      Write(a[i,j]:2, ' ');
    end;
    WriteLn;
  end;
  WriteLn('Array B:');
  for j := 1 to M do
  begin
    sum := 0;
    for i := 1 to N do
      Inc(sum, a[i,j]);
    b[j] := sum;
    Write(sum:2, ' ');
  end;
  ReadLn;
end.