Среднее арифметическое строки динамического массива

procedure TForm1.Button1Click(Sender: TObject);
var m,r,i,j,sz:integer;
    a:array of array of integer;
    b:array of real;
begin with StringGrid1 do
  begin
  for i:= 0 to StringGrid1.ColCount-1 do
  StringGrid1.Cols[i].Clear;
     for i:= 0 to StringGrid2.ColCount-1 do
  StringGrid2.Cols[i].Clear;
    m:=StrToInt(edit1.Text);
    r:=StrToInt(edit2.Text);
        StringGrid2.ColCount:=m;
        ColCount:=m;
        RowCount:=r;
            SetLength(a,m,r);
            SetLength(b,r);
                randomize;
              for i:=0 to m-1 do
                  for j:=0 to r-1 do
                        begin
                            a[i][j]:=randomrange(5,10);
                            Cells[i,j]:=IntToStr(a[i][j]);
                        end;
              for j:=0 to r-1 do
                begin sz:=0;
                  for i:=0 to m-1 do
                      begin
                        sz:=sz+a[i][j];
                        b[j]:=sz div m;
                      end;
                     StringGrid2.Cells[0,i]:=FloatToStr(b[j]);
                end;
  end;
end;

StringGrid2.Cells[0,j]:=FloatToStr(b[j]);