程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
  }" {# Q' @+ s/ A( Mis
        i,j,Rows,Lines:integer;
2 [: E+ I( X7 X6 Q' O' w        MachineName,BufName:string;
; s2 h" S" G4 T$ v  }  N3 R: N        Machine,Buf:object;
4 t8 a* g) u6 ]$ O" H7 _do
* @( ?3 ~$ k. L. A        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
1 X1 E2 p1 }( G3 E6 E                end;
        EventController.stop;
8 }4 K$ M5 i6 M/ q" ]0 Eend;
3 C/ n( B9 [  s5 @4 O$ ?PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
3 f0 |: ~5 }" Z1 _                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
, r  L# u6 d9 _                        end;
; W' N7 b6 T" N: _" I" H                else
4 H+ P/ @0 X% F: N                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
3 O/ _0 W1 X. t7 F! H& ]                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
; y3 f" [0 w. |! d* H( A5 n                                        EventController.stop;
                                end;
                        end;
                end;
  b3 ~2 ?+ }0 |0 ~        next;
" x* x9 O7 F# ?; qnext;

end;
% r( u$ {1 M. Q- E' |
    Lines :=0;
' o. Z  |( k0 y2 E        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
' f5 }& |) I7 [% d            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
3 _$ H$ D% q7 w4 j% _& C                            Lines :=Lines+1;
/ N5 M  u) Q! Q$ d0 G+ J                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
' j/ b' v9 ?' j! S3 O/ W2 k  W  s                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
; l3 p( ~* W0 d, s; y6 r                        PartsTable[3,Lines]:=sprint("Parts");
* f# S3 s8 c' `0 C% f                        PartsTable[5,Lines]:=Rows;
9 W4 f7 ?+ e" t# r( j4 z; Z, J0 O+ u                        PartsTable[6,Lines]:=j;
                end;
" T: V  N6 G9 k4 W0 D        next;
4 f: r2 p: s7 c6 X, I        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]);
        Machine.Name :=MachineName;
) z6 ^8 l- n; H4 q! K        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
/ M; B/ X5 U- U& ^- D* o) A        Machine.ExitCtrl :=ref(Leave);
+ h% o& [6 C* C% W: H( Q& h       
        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]);
4 \% s9 Y4 \0 o" e. N9 \                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
0 _" N0 C& b. J5 k        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
, Q  M$ c3 W0 c3 M

五五

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

wudi

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