[angvelem]

Чего тут задумываться?

Код:

  for i:=1 to n do
  a:=StrToInt(StringGrid1.Cells[i-1,0]);
  S:=0;
  for i:=1 to n do
    S:=S+a;

измени на:

Код:

  for i := 1 to n do
    a[i]:=StrToFloatDef(StringGrid1.Cells[i-1,0], 0);
  S := 0;
  for i := 1 to n do
    if a[i] > 0 then
      S:=S+a[i];

Примерно так.