求助-生产系统仿真-第六章例子 运行错误

soso001

不好意思，打错了个字母，呵呵呵！
( L# x4 _3 e' W/ ^! F大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
is
; o% I! C' Y, P7 m5 Q( T9 t        j,k,nstep,c, scheduleteps,mincomptime:integer;
        M:string;
        selecTab:table[integer,integer,integer,string];
3 X) ^# x2 s0 m7 F- l* [9 Edo
& |4 G0 \5 F4 n        initorders;
       
# g# C" c% w4 ~        scheduledorders.delete;
        seletTab.create;
  n$ h  V& X+ k4 f4 h3 e" x       
        orders.initialize({2,1}..{2,*},0);
        orders.initialize({4,1}..{4,*},0);
        for j:=1 to numorders loop
: J1 E: k/ X3 I, g; M                orders[5,j]:=orders[1,j][2,1];
        next;
        occres.initialize({1,1}..{1,*},0);
       
: ]+ J5 Q# }2 m4 m$ s2 @! t" x1 d+ H        --XUNHUAN
        for scheduledsteps:=1 to numsteps loop --
# [5 D4 N: s) l8 y                selectab.delete;
                k:=1;
2 C5 {( ~8 r0 ]4 K. W                for j:=1 to numorders loop
                       
  A* w+ k- i# [8 b6 ^                        nstep:=orders[2,j]+1;
+ A6 T6 {0 |( }" V5 d% M                        if nstep<=orders[3,j] then
                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
                                k:=k+1;
/ |9 Q, j5 n5 i4 E                                       
                        end;
7 y' J: r+ j8 M. O* ~                next;
                mincomptime:=selecttab.min({3,1}..{3,*});
               
                from j:=1 until j>selectab.ydim loop
0 E- Z* M* M& d+ ~2 Y; a, Y                       
) M$ K0 M& s; F% b0 x  V                        if selectab[2,j]<mincomptime then
* i! J; i# X9 x- s2 i                                j:=j+1;
                        else
5 m% R: E0 |. A7 B$ R5 O$ i4 c                                selecttab.cutrow(j);
                        end;
1 U8 c' X) f+ F                end;
               
; s6 K8 W" ?" ~- \, K                j:=selectionrule(selecttab);
5 d3 x+ l( `: ?6 [- Z: U1 K# k               
                nstep;+orders[2.j]+1;
                orders[2,j]:=nstep;
( q- B3 ]4 T" Y                m:=orders[1,j][1,nstep];
6 m. S) A' f% I8 J5 ^. S                c:=orders[5,j]
6 c7 }: p( m% H; D( g                occres[1,m]:=c;
               
                --jieguo:start,end,res,job,step
2 f; z% t# I1 Q5 m$ @' H* ]* u% }                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
                for k:=1 to numorders loop
                        nstep:=orders[2,k]+1;
                       
: C- V8 u2 z  u                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
! a0 b: b6 Q0 V& ~9 n                           --
+ G; T9 j3 s* j# v  F5 c2 C7 e                        then
# b) S3 u  E4 O4 R$ K6 |                                orders[4,k]:=max(c,orders[4,k]);
                                --
  o& Y% K/ o4 X( O/ P$ J                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
                                --
                        end;
7 Z- l' I: Z* ~4 r0 N. k                next;
                nstep:=orders[2,j]+1:
                if nstep<=orders[3,j]
                  
4 w: u5 T2 j( n                then
) }& |! H5 ?% x+ y5 B% H9 |# T                        orders[4,j]:=max(c,occres[1,orders[1,j][1,nstep]]);
                        orders[5,j]:=orders[4,j]+orders[1,j][2,nstep];
9 ^9 `. U# R" X2 }0 o) L. y$ W                end;
        next;
       
        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
        mygantt;
  l- E# P& @5 O9 Q        ens;
9 m" `9 }9 o3 u