程序问题

wudi

此段程序是在应用遗传算法时编写的，写在setParameter中，但是调试时出现问题
6 f& N$ L! G# v5 @9 B+ P4 Y
  s1 v/ [5 b' t) P8 x% w
  P9 D* K! U. f* f附件中有文件，是”生产系统仿真“中第三章3.1到3.5节内容，希望大家可以看看，帮我把遗传算法仿真调通，新手，实在是不好意思哈，非常感谢

婺源指并

先要声明外部变量（i:integer）
$ b) I3 U* Y& u0 I* V
+ \- G1 z6 O% f4 @但是关于这个问题还有一个问题，如下图，望高手指教