Вывести среднюю скорость каждого поезда

void setka2( TStringGrid * sg )
{
    sg->Cells[ 0 ][ 0 ] = "N";
    sg->Cells[ 1 ][ 0 ] = "номер поезда";
    sg->Cells[ 2 ][ 0 ] = "прибытие";
    sg->Cells[ 3 ][ 0 ] = "отправление";
    sg->Cells[ 4 ][ 0 ] = "направление";
    sg->Cells[ 5 ][ 0 ] = "растояние";
    sg->Cells[ 6 ][ 0 ] = "средняя скорость (км/ч)";
}
 
void setka(
    TStringGrid * sg,
    poezd         d,
    int           N )
{
    sg->Cells[ 0 ][ N ] = IntToStr( N );
    sg->Cells[ 1 ][ N ] = IntToStr( d.kol_nom );
    sg->Cells[ 2 ][ N ] = DateTimeToStr( d.last_time );
    sg->Cells[ 3 ][ N ] = DateTimeToStr( d.start_time );
    sg->Cells[ 4 ][ N ] = AnsiString( d.napr );
    sg->Cells[ 5 ][ N ] = IntToStr( d.kol_rast );
    sg->Cells[ 6 ][ N ] =
        IntToStr( d.kol_rast / HoursBetween( d.last_time, d.start_time ) );
}
 
...
 
void __fastcall TForm1::Button3Click( TObject * Sender )
{
    fb = fopen( S, "rb" );
    setka2( StringGrid2 );
    int k = kol( fb ), n;
    poezd * mas = new poezd[ k ];
    formir( fb, mas, k );
 
    for ( n = 0; n < k; n++ )
    {
        setka( StringGrid2, mas[ n ], n + 1 );
    }
 
    StringGrid2->RowCount = n + 1;
    delete mas;
    fclose( fb );
}

    TDateTime mdt;
    USHORT dd=Edit1->Text.ToInt() ,
           mm=Edit2->Text.ToInt() ,
           yy=Edit3->Text.ToInt() ;
    mdt = EncodeDate(yy,mm,dd);