Построение гистограммы относительных частот в Τchart

//функция подсчета значений попавших  в заданный интервал
//N1-левая граница интервала,N2-правая, massiv - входной массив, l-размер массива
int KolEl (float N1,float N2, float*  massiv, int l){
int i,k;
for (i = 0; i <l ; i++) {
                if ((massiv[i]>=N1) && (massiv[i]<N2)) {    k++;
                                                        }
}    return k;
}
 
void __fastcall TForm2::Button4Click(TObject *Sender)
{
       int i,j,w;
  
   float q;
   float razm=0.0,h=0.0,in;
   float W,out;
 
   int nN=StrToFloat(Edit1->Text);
   float A=4;
   float sigA=2;
   float B=2;
   int nsig=StrToFloat(Edit4->Text);
   float t1=140;
   float t2=160;
   lim=100;
   float tc=24;
 
 
  randomize();
  float *mas3=new float[lim]; // тот самый массив
  float *mas2=new float[lim];
  float *mas=new float[lim];
 
      for (i = 0; i < lim; i++) {
             mas[i]=dR(t1,t2);
         mas2[i] = 1.0/nN*pow((A/(sigA-B/nsig))*((2300.0-mas[i])/2300.0),2);
         mas3[i]= (1.0/nN*pow((A/(sigA-B/nsig))*((2300.0-mas[i])/2300.0),2))*tc;
                          }
 
   float min=mas3[0],max=mas3[0];
     for (int i=1;i<lim;i++){
         if (min>mas3[i])
             min=mas3[i];
         if (max<mas3[i])
              max=mas3[i];
      }
 
bubbleSort(mas, lim);
bubbleSort(mas2, lim);
bubbleSort(mas3, lim);
 
 
   for (i = 0; i < lim; i++) {
     Form5->StringGrid1->Cells[0][i+1]= FloatToStrF(mas[i],ffGeneral,4,2);
     Form5-> StringGrid1->Cells[1][i+1]= FloatToStrF(mas2[i],ffGeneral,4,2);
     Form5-> StringGrid1->Cells[2][i+1]= FloatToStrF(mas3[i],ffGeneral,4,2);
   }
 
Form5->Memo1->Text=FloatToStrF(min,ffGeneral,4,2);
Form5->Memo2->Text=FloatToStrF(max,ffGeneral,4,2);
 
  razm=max-min; //находим размах
  Form5->Memo3->Text=FloatToStrF(razm,ffGeneral,2,2);
  h=razm/10.0; //длина интервала
  Form5->Memo4->Text=FloatToStrF(h,ffGeneral,2,2);
 
//далее должно быть место где я определяю интервалы
   float m0,m1,m2,m3,m4,m5,m6,m7,m8,m9,m10;
 
     m0=mas3[0]+0*h ;
     m1=mas3[0]+1*h ;
     m2=mas3[0]+2*h ;
     m3=mas3[0]+3*h ;
     m4=mas3[0]+4*h ;
     m5=mas3[0]+5*h ;
     m6=mas3[0]+6*h ;
     m7=mas3[0]+7*h ;
     m8=mas3[0]+8*h ;
     m9=mas3[0]+9*h ;
     m10=mas3[0]+10*h ;
    
 
     for (i = 0; i < lim; i++) {
      out=KolEl(m0,m3,mas3,lim);
     Form5-> StringGrid1->Cells[4][i+1]= FloatToStrF(in,ffGeneral,4,2);
        }
 
       W=out/lim;
    Series1->AddXY(,W,clRed);
 
 
   Form5->Show();
   delete []mas;
    delete []mas2;
    delete []mas3;
}