程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
4 O6 Q, B) J: n( C3 h' m3 R        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
' L1 P3 I# _" v/ H# l! m. S4 G        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
/ b) e1 w9 T, T* W9 p; w                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
- y$ X& F$ O. s. G' [7 p                        print "Yes";
                when 32 then
1 Y& e+ c0 Y0 }( F- W                        print "No";
                else
                        print "Cancel";
' y& F1 x" ^) y: P7 {6 C                end;
        EventController.stop;
end;
' ^) t' S; @1 F9 P* q( hPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
9 _3 b4 K, z, Q6 y* M+ M                if j<i then
  W! i  o: |  S! x- F2 `* y9 p0 v6 N                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
/ z8 C* C) O7 w1 S: C: v  T. Y                else
/ N3 r* h. C# G# y+ C( r2 V                        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);
                                        EventController.stop;
5 ~) L4 H# a' F8 ~; T                                end;
1 h3 B: I1 F, H, R9 z                        end;
2 U* M  W; a0 X" Q, [+ q                end;
        next;
next;
7 w: l! y# j( p& [! o4 B$ e
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
: e/ p- _+ x9 Z, z+ K; {        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
" H) V3 i* e6 G* w$ s, N' x% s1 N/ S                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
' v$ T# e* Z6 m. H* n. _# L( T                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
* U, e1 ~$ C) F2 x  V        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]);
        Machine.Name :=MachineName;
9 Y6 L9 v: h# K" j) b& j9 ^        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
# ~6 T# x9 y" M- A% N        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;
( c7 ?3 A+ |& c5 B3 W. `        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
- x: O8 M" z. C, v5 U        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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