不正な浮動小数点数演算命令を解決するには？

解決

ぐぜ 2014-10-22 05:13:20 No: 46766 IP: [192.*.*.*]

http://www.dotup.org/uploda/www.dotup.org5374481.txt
上記のコードを実行し、ボタンをクリックするとプロジェクトdiscuss5.exeは例外クラスEInValidOp（メッセージ'不正な浮動小数点数演算命令'）を検出しましたというエラーが出ます。
そのエラーを解決したいです。
ブレイクするとprocedure discussionphase(advocacy : integer); の真ん中ほどにある for i := 1 to 3 do mean[i] := mean[i] / k2[i]; がフォーカスされます。
meanを7や7.123など変数に入っていない状態のただの数値で割るとエラーは出ないのですがk2という変数で割るとエラーが出てしまいます。
mean、k2ともに小数点の切り上げ切り下げをを試してみてもエラーが出ました。
もし解決方法をご存じの方がいらしたら教えていただけないでしょうか。

よろしくお願いします。

編集削除

通りすがり 2014-10-22 06:12:38 No: 46767 IP: [192.*.*.*]

とりあえずループを
for i := 1 to 3 do
begin
mean[i] := mean[i] / k2[i];
end;
とばらして、mean[i] := の行にブレークポイントを置いて、エラーが発生する直前の
各ローカル変数の値を確かめてみる、というのはどうですか？あとこのループに
入る直前のmean[]とk2[]の各要素の値の確認も。

編集削除

ぐぜ 2014-10-22 07:21:25 No: 46768 IP: [192.*.*.*]

特におかしいところはありませんでした。
meanとk2にも値がちゃんと入っています。

編集削除

ぐぜ 2014-10-22 07:29:19 No: 46769 IP: [192.*.*.*]

場合によってはk[i]に0が入ることがあり、0で割っていたのでエラーが出ていました。
単純なミスでした、気が付かないまま質問していまい申し訳ありませんでした。

回答ありがとうございました。

編集削除