Создать матрицу C: элементы матрицы В, по величине больше среднего арифметического, заменить нулями

Program zada4a;
Uses
     crt;
Const
     n=8;
Type
     TMas= array [1..n,1..n] of real;
Var
     B, C : TMas;
     i,j : byte;
     Tmp, Sum, Sr: real;
Begin
  clrscr;
  {Ввод матрицы В}
  Sum:=0;
  Randomize;
  For i:=1 to n do
      begin
         For j:=1 to n do
            begin
               B[i,j]:=random(15)-10;
               Sum:=Sum + B[i,j];
               write(B[i,j]:10:2);
            end;
         writeln;
      end;
      
      Sr:=Sum / (i*j);
      {Заполнение матрицы С}
      For i:=1 to n do
         begin          
            For j:=1 to n do
               begin
                   if B[i,j] <= Sr then          
                      C[i,j]:=B[i,j]
                   else
                      C[i,j]:=0;
                   write(C[i,j]:10:2);
                end;
            writeln;
        end;
 
readln;
end.