procedure TForm1.getValuesInArray(stringgrid: TStringGrid);
var i :Integer;
begin

 for i:=0 to stringgrid.ColCount-2 do
    begin
      vector[i] := StrToInt(stringgrid.Cells[0, i]);
    end;


end;

procedure TForm1.btn1Click(Sender: TObject);
var S :Real;
    i, n :Integer;
begin
getValuesInArray(strngrd1);
n := 0;
S := 0;

for i := 0
to strngrd1.ColCount-1 do
  begin
    S := S+vector[i];
  end;
      //ShowMessage(FloatToStr(S));
  for i := 0 to strngrd1.ColCount-1 do
  begin
    if vector[i] > S then  n := n + 1;
  end;
  edt1.Text := IntToStr(n);
end;