程序问题

wudi

此段程序是在应用遗传算法时编写的，写在setParameter中，但是调试时出现问题
( n" g6 f" _/ O' I  S
- P* _) G2 b0 F* K! n" @
附件中有文件，是”生产系统仿真“中第三章3.1到3.5节内容，希望大家可以看看，帮我把遗传算法仿真调通，新手，实在是不好意思哈，非常感谢

婺源指并

2 M$ R; d9 f+ N1 }先要声明外部变量（i:integer）
" H: ~! B" {* p+ L( G& v- c
但是关于这个问题还有一个问题，如下图，望高手指教