Подсчитать число нулевых ячеек, нечетных чисел, четных чисел, и все ответы вывести в процентах

void __fastcall TForm1::Button1Click(TObject *Sender)
{
     float arr [9],
     SUMM_1 = 0,
     SUMM_2 = 0;
     int
     count = 0,
     zero = 0; // kl-vo vvedennih elementov
 
     for (int i = 0; i<StringGrid1->ColCount;i++)
     if (StringGrid1->Cells[i][0].Length()>0)
        arr[count++] = StrToFloat(StringGrid1->Cells[i][0]);
        else
        arr[count++] = 0;
 
        //ПЕРЕПИСЫВАЕМ ИЗ ОБЬЕКТА В МАССИВ
 
     for (int i = 0; i<count; i++)
     {
        float buf = arr[count - i - 1];
        if (buf == 0) zero ++;
        StringGrid2->Cells[i][0] = buf;
        if (i%2)
        SUMM_2 += buf;
        else
        SUMM_1 += buf;
 
     }
 
     int procent_1 = 100 / (SUMM_1 + SUMM_2) * SUMM_1;
     int procent_2 = 100 / count * zero;
     int procent_3 = 100 - procent_1;
     Label1->Caption = "Количество четных элементов - " + IntToStr(procent_1) + "%."+
     "\nКоличество нулевых элементов - " + IntToStr(procent_2)+ "%."+
     "\nКоличество нечетных элементов - " + IntToStr(procent_3) + "%.";
}

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        int chetn=0,nechetn=0,zero=0;
        int massiv[200],massiv_naoborot[200];
        for (int i=0;i<200;i++)              massiv[i]=i-100;
        for (int i=0,j=199;i<200;i++,j--) massiv_naoborot[i]=massiv[j];
 
        for (int i=0;i<200;i++)
        {
                if (massiv[i]%2==0 && massiv[i]!=0) 
                              chetn++;
                else if (massiv[i]%2!=0 && massiv[i]!=0) 
                              nechetn++;
                else 
                              zero++;
        }
        float pers_chetn=0.0,pers_nechetn=0.0,pers_zero=0.0;
        pers_chetn   =100.0*(float)chetn    /(float)(chetn+nechetn+zero);
        pers_nechetn=100.0*(float)nechetn/(float)(chetn+nechetn+zero);
        pers_zero     =100.0*(float)zero      /(float)(chetn+nechetn+zero);
 
        Label1->Caption = "Количество четных элементов - " + FormatFloat("0.0",pers_chetn) + "%."+
                                 "\nКоличество нулевых элементов - " + FormatFloat("0.0",pers_nechetn)+ "%."+
                                 "\nКоличество нечетных элементов - " + FormatFloat("0.0",pers_zero) + "%.";
}