程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
0 c2 ~4 `4 {" ]is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
0 `% Y+ E. @6 o: Y        Machine,Buf:object;
1 R5 Z- v$ T& Edo
$ m5 S7 Q! h& o  m0 }% K, }) f/ P        if Number_Of_Machine/=D_From_To_Chart.YDim then
& F4 g% |4 L4 X5 R4 [7 r                inspect messageBox("Number Wrong...,",50,13)
: z- f* Z+ M: R$ v. Q                when 16 then
2 z/ K- J8 Y9 {4 b. j8 A8 F7 k7 X                        print "Yes";
                when 32 then
                        print "No";
- c+ z$ I, e5 ?' O, [                else
                        print "Cancel";
) R3 r% K6 ], F5 J                end;
        EventController.stop;
end;
# B6 Y4 k0 N9 m# MPartsTable.delete;
for i:=1 to Number_Of_Machine loop
( q% Q; w4 }" O2 |6 c        for j:=1 to Number_Of_Machine loop
: c; I% H& b/ _0 Q4 u                if j<i then
( p9 @) v% O8 B5 l/ A- D  c: k6 H1 @                        if D_From_To_Chart[j,i]<=0 then
" k: E" M- t7 w/ a: q                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
( G5 l; l/ G% N$ j: W* G: m" N7 u/ X                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
# ~. W, ~$ d! J. H" s- u                        else
$ C! M- O% U. N) a                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
9 `! p6 \( H0 s# w$ s% k6 y$ T, x                                end;
                        end;
& L9 `: a. [$ Z3 J! I+ Q  C                end;
        next;
next;

# `7 T: I+ t: ~' s$ Vend;

! n8 d4 F0 F7 [, w1 l& J! O6 z  H, R# Y    Lines :=0;
( K: P' P7 Q3 O; f7 x3 C. A$ z% y        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
- E/ y* s  y+ o! w        MachineSequence[2,i]:=Rows;
1 [, M3 X$ Z. V* q# D0 w            for j:1 to Number_Of_Machine loop
& R! q7 z% L- |% b, X                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
) w* N; ?$ A+ u* t                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
2 `, t! J: m$ L- g                        PartsTable[3,Lines]:=sprint("Parts");
, q: q6 i5 L: i' @                        PartsTable[5,Lines]:=Rows;
" ?" @7 M. z6 q0 d                        PartsTable[6,Lines]:=j;
" h% ]8 f9 d. m7 B! \5 h                end;
) J2 B/ N- a4 e9 T8 \+ @8 L        next;
; G$ H, A& n' W+ |% t( O        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]);
5 I  b, @4 I: G" _7 }, R        Machine.Name :=MachineName;
$ i, @2 D" ^/ r. k# `! S        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
  [7 H6 u1 s8 h2 _1 h       
        BufName :=sprint("BF",Rows);
6 G4 r1 M3 Q1 m& t4 _& e        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;
5 b: f: M. o% {  E8 m" t8 W        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
- T: m7 B7 N2 B. T5 l0 k; M# }8 b9 U, d        .MaterialFlow.Connector.connect(Buf,Machine);
next;
5 l: u  k: N* U+ j% Tend;

五五

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

wudi

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