можете объяснить что выполняет каждая строка

//---------------------------------------------------------------------------
const n = 10;
 
int *s = new int[n]; int i=0, j=0;
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        int *b = new int[n];
        int *c = new int[n];
        int count_b = 0, count_c = 0;
        for(i=0; i<n; i++) {
                s[i] = StrToInt(StringGrid1->Cells[i][0]);
                if (s[i] % 2 == 0) {
                        b[count_b] = s[i];
                        count_b++;
                } else {
                        c[count_c] = s[i];
                        count_c++;
                }
        }
        if (count_b != 0)
                for (i=0; i < count_b; i++) Label4->Caption = Label4->Caption + " " + IntToStr(b[i]);
        if (count_c != 0)
                for (i=0; i < count_c; i++) Label5->Caption = Label5->Caption + " " + IntToStr(c[i]);
        if (count_c > count_b) {
             Label1->Caption = "Нечетных больше";
        } else {
            Label1->Caption = "Четных больше";
        }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::StringGrid1Click(TObject *Sender)