1行目は正しいけど、2行目の分析は正しくないね。
　c[i]:=round(k[i]*0.1);//1回に１０％を掛金として出す
　　　↓
if k[i]<100000 then c[i]:= 0 else c[i]:= 1000000;//1回に１0万円を掛金として出す

とか、持ち金が残ってる限り掛けるという条件に替えても結果は多少遅くなるが貧富の差がつく。
やがて10倍20倍に資金を増やす奴が少数出はじめると同時に、スッテンテンになる奴が出てくる。