程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
) K# w/ _5 V. I9 {! m' j        MachineName,BufName:string;
% M6 i! D4 K3 ^+ o2 K" O: ?" F; Y# {        Machine,Buf:object;
4 X9 h$ c7 K4 L5 L8 R) Fdo
) I; M  _0 G9 w" y$ p2 T        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
  ?0 b0 Q3 E: O; k0 ?                when 32 then
                        print "No";
5 m) z1 b% _. W! U$ S' G2 n                else
: \) P' R3 ?; X0 |. Q                        print "Cancel";
' l8 @, E, B" N' a                end;
3 e1 J- h$ F! b6 ]2 }" M; ?3 d        EventController.stop;
& f# _0 v5 f' }" n% ]3 Vend;
PartsTable.delete;
2 Z8 a* C5 ^; z  U1 f) Hfor i:=1 to Number_Of_Machine loop
/ M0 m7 v* Y0 h& S, v4 Q        for j:=1 to Number_Of_Machine loop
                if j<i then
! t/ P& B' q2 v  b+ a2 X7 r7 S7 _                        if D_From_To_Chart[j,i]<=0 then
- Q0 X+ k0 ]# j( x4 S3 N                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
3 a5 V- d; ]/ ]7 S5 |                        else
                                if D_From_To_Chart[j,i]<=0 then
/ M# Q, z' y% ^9 s                                        messageBox("distence<=0...,",50,13);
: D+ k: V. D; Z                                        EventController.stop;
# S2 V" B. F( a3 c. W3 X                                end;
  @! V, e9 _( o7 C- J! r                        end;
                end;
        next;
next;
& m8 q5 |, {7 ^# d. _8 i6 Q4 _5 z- _
1 u+ u6 O# P0 C- iend;
" \1 W4 @: E+ |
; m3 O* l6 ~: H2 L! U+ m    Lines :=0;
0 m; s1 _0 t) T; i! U/ P- z' T+ i        for i:1 to Number_Of_Machine loop
. Q& H+ Y' i( @# z9 n6 |        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
+ _4 u4 O6 o% M, h: }8 ~                    if W_From_To_Chart[j,Rows]>0 then
( B5 O* m% i- Y$ S& h8 A. q                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
& F7 o, |; \, q8 U4 R6 d  |% R) b                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
, b3 I, P$ j9 h2 F$ O" G2 Q        MachineName :=sprint("M",Rows);
5 X5 V# O* J7 @/ G& T        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;
" ?. I. n" q- L/ [+ n4 ~        Machine.ProcTime :=5;
4 s; p* J) D) H) p: `+ F* s        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        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]);
/ l* ?7 k7 q& D  s$ w* P$ M& [                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
( x; I9 r) O; ^) _: a. S0 X& j        .MaterialFlow.Connector.connect(Buf,Machine);
$ Z3 o- ?% _: v/ `' \next;
; z6 F8 h7 n7 m3 H, J  k) nend;
3 N( H! h! A: g# G6 t0 E0 n' g7 `

五五

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

wudi

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