程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, p8 h  h' o0 L6 Z; ?is
5 M: w* J/ G& `  X& M+ D        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
1 }3 C7 W* X. U5 z8 d5 u+ K6 u: |        Machine,Buf:object;
do
5 z7 \, }% |# L) t- [- B8 B        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
$ E8 Y0 T) h1 h6 ], Z                        print "Yes";
                when 32 then
- f  A" B. }1 t# ]/ b                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
/ [$ ~6 `8 {6 N6 i. BPartsTable.delete;
9 B, W' M" ]! t7 E2 b2 Wfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
' S4 l9 _+ b( b# Y7 k+ W                        if D_From_To_Chart[j,i]<=0 then
5 x/ Y8 g; ~5 ~3 M4 X3 U5 X5 i                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
: q+ ]: a5 M: s* r0 D1 b                        if j=i then
                                D_From_To_Chart[j,i]:=0;
6 B9 ]7 U) I* L# G+ R, g, ^5 _                        else
# _8 U: ^+ \% k# ?                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
6 _8 ^( t0 w9 {8 a; r* }                end;
7 E3 ^& n. Y7 W/ ^/ O9 @. z        next;
next;
1 |5 l' h- x0 e' e) }
8 `% p  z: |+ R1 V* ?* fend;

) v6 b& q/ \9 w( H" @    Lines :=0;
        for i:1 to Number_Of_Machine loop
. e1 V4 ^7 G, H        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
9 D7 [. C/ T; f  U) K1 G        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
) F0 D: k& @3 j1 f0 W1 {3 D                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
0 N! `/ {: [8 \+ ?                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
8 @3 K. D7 `6 }/ p: [$ M4 n5 {                        PartsTable[5,Lines]:=Rows;
7 P7 `, z4 l5 `3 B, F                        PartsTable[6,Lines]:=j;
0 _5 U0 c# x" e) ?. [                end;
: H6 M* X# i" x+ }+ H) n        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]);
( G- b; ], R* K4 u        Machine.Name :=MachineName;
! ?; Q: }7 P% Z        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
1 ~8 F" g, {1 a        Machine.ExitCtrl :=ref(Leave);
1 A' S0 j5 l: o9 [5 Q# |  v7 F6 e       
        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]);
$ ]5 C3 B$ A- R# \- M                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
( G+ P/ [, X* A! G/ N  b1 q

五五

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

wudi

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