[SerginhoLD]

у тебя код:

Код:

if ((StringGrid1.Cells[0, i] = 'Жен') and      (StrToInt(StringGrid1.Cells[2, i]) < 50)) then
   Sum := (Sum + StrToInt(StringGrid1.Cells[4, i]));
    Kol:= ???????????;
    Srob:=Sum/Kol;
 end;

че за знаки вопроса?) просто перед началом цикла пишешь

Код:

Kol:=0;

а там где красненьким выделено

Код:

inc(Kol); //увеличивает Kol на единицу

вот это пишешь уже после цикла, а не внутри:

Код:

Srob:=Sum/Kol;