Из одного массива в другой переписать элементы, модуль которых меньше среднего значения

Program Arr2;
  Uses Crt;
  Const n = 100;
  Type vector = array[1..n] of integer;
  Var
    a,b : vector;
 
  Procedure InPut(var a : vector;
                      n : byte);
    Var i : byte;
    Begin
      {Randomize;}
      For i := 1 to n do
        a[i] := random(30)-10;
        {Read(a[i]);}
    End;
 
  Procedure Out(a : vector;
                n : byte);
    Var i,j : byte;
    Begin
      For i := 1 to 10 do
        Begin
          For j := 1 to 10 do
            Write(a[i*j]:6);
          Writeln;
        End;
    End;
 
  Function Arit_mean(a : vector;
                     n : byte) : integer;
    Var
      i : byte;
      s : integer;
    Begin
      s := 0;
      For i := 1 to n do
        s := a[i] + s;
      Arit_mean := s div n;
    End;
 
  Procedure Fill(a : vector;
                 var b : vector;
                 n : byte);
    Var
      i,k : byte;
      s : integer;
    Begin
      s := Arit_mean(a,n);
      k := 1;
      For i := 1 to n do
        If Abs(a[i]) < s Then
          Begin
            b[k] := a[i];
            Inc(k);
          End;
      For i := k to n do
        b[i] := 0;
    End;
 
 
BEGIN
  ClrScr;
  InPut(a,n);
  Writeln('Массив a:');
  Out(a,n);
  Fill(a,b,n);
  Writeln(#13#10'Массив b:');
  Out(b,n);
  Readkey;
END.