程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
$ W+ ?) ^9 |/ n9 ^/ I# s; m. Cis
: P3 h1 d. t; y1 e        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
- V3 h" Z: X; m5 g        Machine,Buf:object;
5 `3 K6 S7 I8 ddo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
- W9 T  I" i2 _8 r  h                when 32 then
                        print "No";
                else
; ~5 D2 Q8 ^, K: l3 p6 R5 b; ~                        print "Cancel";
                end;
% a$ B2 n! `+ ?* U- J( L        EventController.stop;
* @- L# ]6 ?0 I+ w5 q3 x. @end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
0 G5 A- D7 t2 V9 l                if j<i then
; `8 v8 Q- l" |1 U8 E                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
+ _; [4 i: u, j' Z3 I4 G1 F" _                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
" Y! |  Q5 l3 }! A6 l. Z. p# q                                        EventController.stop;
8 L1 Q' l) d1 I                                end;
* t+ ^- O% X0 ]% [. Y2 O                        end;
% U) h: z" ]" ?4 {7 f% z( m                end;
6 E. }0 |8 T0 _5 j' U( A# V        next;
& W( N- T0 v1 S% R# anext;

/ D/ ]2 g( X0 u6 c5 j! E% T3 A+ gend;
# R# W: y" V0 N8 M+ ?
5 y) V. T: {/ d5 ?* h    Lines :=0;
$ G  H$ z1 H2 i        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
# K* S7 r1 U3 Q$ v' t        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
# \% T7 a9 h- j8 W. C2 s                            Lines :=Lines+1;
% i. N8 {% ~* c6 N  _4 O                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
8 C5 E# ?, }) r* n6 |5 D3 j                        PartsTable[6,Lines]:=j;
                end;
) i2 |; ]& n8 s& V8 W- p* m; d        next;
* S* P; ~6 d, H% o: t9 ]        MachineName :=sprint("M",Rows);
* M/ n( n5 h' N4 ^' J        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]);
3 i5 ~. n2 H7 y8 `* o1 \        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
) f9 n' i- R7 I        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
$ M/ J5 W& A) X2 j       
        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]);
& `, y1 K' m; U1 b& B                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
& e+ B# z9 j; f2 w$ c6 _  w        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
$ K/ A' }: ?2 n9 X" M4 I: a6 n9 u  unext;
; _$ d% h/ c# N+ |1 Mend;

五五

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

wudi

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