[Kailon]

запустим еще один цикл для подсчета

Код:

 for i := 1 to StringGrid1.RowCount-1 do
 begin
  
  if ((StringGrid1.Cells[0, i] = 'Жен') and      (StrToInt(StringGrid1.Cells[2, i]) < 50)) then
   Sum := (Sum + StrToInt(StringGrid1.Cells[4, i]));
    
   for j := 1 to StringGrid1.RowCount - 1 do
     if StringGrid1.Cells[0,j] = Жен' then Inc(Kol);
    
    Srob:=Sum/Kol;
 end;