Неправильно строится гистограмма

procedure TForm2.Button4Click(Sender: TObject);
begin
  If Round(sqrt(Length(A))) mod 2=0 then
  begin
    Intervals:=Round(sqrt(Length(A)))+1;
  end;
  If Round(sqrt(Length(A))) mod 2=1 then
  Begin
  Intervals:=Round(sqrt(Length(A)));
  end;
 
  Min:=B[0];
  Max:=B[Length(B)-1];
  Interval:=(Max-Min)/Intervals;
  Label1.Caption:=Floattostr(Min);
  Label2.Caption:=Floattostr(Max);
  Setlength(D,Intervals-1);
  Setlength(C,Intervals-2);
  For i:=0 to Length(D)-1 do
  begin
    If i=0 then D[i]:=Min-1;
    D[i]:=D[i-1]+Interval;
    If i=Length(D)-1 then D[i]:=Max+1;
 
    end;
  For i:=0 to Length(C)-1 do
  begin
    C[i]:=0;
    end;
  For i:=0 to Length(A)-1 do
  begin
    For g:=0 to Intervals-3 do
    begin
      If ((A[i]> D[g]) and (A[i]<D[g+1])) then
      begin
         C[g]:=C[g]+1;
        end;
      end;
    end;
  Chart1BarSeries1.Clear;
  For i:=0 to Length(C)-1 do
  begin
    Chart1BarSeries1.Add(C[i],Inttostr(i+1),clRed);
    end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  if not Odd(Round(sqrt(Length(A)))) then
    Intervals := Round(sqrt(Length(A))) + 1
  else
    Intervals := Round(sqrt(Length(A)));
 
  Min := B[0];
  Max := B[Length(B) - 1];
  Interval := (Max - Min) / Intervals;
 
  Label1.Caption := Floattostr(Min);
  Label2.Caption := Floattostr(Max);
 
  Setlength(D, Intervals - 1);   // может, Setlength(D, Intervals)?
  Setlength(C, Intervals - 2);
 
  for i := 0 to Length(D) - 1 do
    if i = 0 then
      D[i] := Min - 1
    else if i = Length(D) - 1 then
      D[i] := Max + 1
    else
      D[i] := D[i - 1] + Interval;
 
  for i := 0 to Length(C) - 1 do
    C[i] := 0;
 
  for i := 0 to Length(A) - 1 do
    for g := 0 to Length(C) - 1 do
      if ((A[i] > D[g]) and (A[i] < D[g + 1])) then
        C[g] := C[g] + 1;
 
  Chart1BarSeries1.Clear;
 
  for i := 0 to Length(C) - 1 do
    Chart1BarSeries1.Add(C[i], Inttostr(i + 1), clRed);
end;

D[Low(D)]:=Min - 1;
D[High(D):=Max + 1;
for i:= Low(D)+1 to High(D)-1 do
 D[i] := D[i - 1] + Interval;