程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
# e& B4 U  b+ q, S        Machine,Buf:object;
; X4 p, W3 C$ t) l# \& l% Mdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
+ H) u. B/ I2 _) ^                inspect messageBox("Number Wrong...,",50,13)
; l- [+ I& M8 t. L, ?1 j                when 16 then
# B9 f' `& c  w  F8 U                        print "Yes";
                when 32 then
3 W8 v, d; i. U                        print "No";
                else
                        print "Cancel";
' w) }0 r0 E; C                end;
/ g  {9 x) R  F1 @) M6 E' e( p! R6 n        EventController.stop;
) k: e- I& V) Y# f: i8 V6 Mend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
* U4 W. {3 ?& O4 n( ~                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
1 `: f) n+ J1 s* d7 E5 ^# T- H                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
$ |+ G$ Z& q7 c& `                        end;
$ k5 a' w) i2 c! R                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
/ O' w2 G0 m6 E9 T                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
" \: r2 I8 W% d: Y  @4 a8 m4 }                        end;
7 f* e  t) w; R* t2 f                end;
3 V5 ^7 E# ]* A) e4 z        next;
" B0 T' J/ S2 n) o$ n; y- I( ]next;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
* k" r/ S& k. D/ {        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
( p. o/ z5 Y( x" P                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
+ w: N2 |9 }  ^/ }2 L                        PartsTable[5,Lines]:=Rows;
) _6 r8 M- v$ q7 g                        PartsTable[6,Lines]:=j;
                end;
# H, s9 [* Y* l/ ?% [- ^  n# F3 }        next;
        MachineName :=sprint("M",Rows);
        Machine:=.MaterialFlow.SingleProc.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i],Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
8 |7 C$ A! T2 G3 a& M4 t$ q5 t: [        Machine.Name :=MachineName;
* X- u- s6 b% I3 q9 V        Machine.ProcTime :=5;
! q6 Y/ ?- y: v0 W3 j% f# m* Q* U        Machine.label :=sprint("machine_",Rows);
  c2 S& J* o- l8 y* \) P. C        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
        Buf:=.MaterialFlow.Buffer.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i]-35,Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
                Buf.Name :=BufName;
" ?6 m# E7 F8 w+ y$ h2 D        Buf.Capacity :=5000;
& D9 y7 h# T, r& h$ y        Buf.ProcTime :=0;
! B0 ?& G- i% P, A% `8 S        .MaterialFlow.Connector.connect(Buf,Machine);
1 S; n9 R: a3 V- e/ ]next;
* K) \: H1 t- O, s9 l" Q% o' t. kend;
! d* e0 y, j0 V: b* W- S

五五

end 数量不对 且后面两个for循环 赋值没有等号。。。

wudi

老师，我再问一下，哪里的end数量不对啊，我是新手