程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
  E& o2 r( R# z) c        i,j,Rows,Lines:integer;
9 A# U7 [7 }8 l7 g( z1 ], r        MachineName,BufName:string;
. `9 U, X4 x4 Z% s  A        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
1 y( y/ W  c  ]- s                        print "Yes";
5 L. L8 _; S2 Y) ]; _. u                when 32 then
6 D# S2 |* d! O9 X. c  r+ ^0 q0 x                        print "No";
' t6 P1 a7 `4 A                else
                        print "Cancel";
( H+ v" T5 o) R: c( H6 P                end;
; S! c+ I+ k: G4 n0 I7 V* _        EventController.stop;
end;
. |" ~5 {8 X: [. U: LPartsTable.delete;
3 \1 @* i$ A, ?4 N" @: Q4 \. ^1 F' Zfor i:=1 to Number_Of_Machine loop
7 w" O& U3 X  a  p" n9 y        for j:=1 to Number_Of_Machine loop
                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];
                        end;
                else
                        if j=i then
% V' \: `9 R: I# i                                D_From_To_Chart[j,i]:=0;
' V8 I  G$ d9 F) p                        else
                                if D_From_To_Chart[j,i]<=0 then
  i/ j4 q* u( J9 O* u                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
* l+ \8 s; Q( k  H/ g                end;
        next;
1 d3 a% M  N5 ~1 \. p4 inext;

end;

    Lines :=0;
% y7 I4 a; P* k* x/ }+ I3 Y; B' ]) g        for i:1 to Number_Of_Machine loop
9 o$ l2 u0 N9 A1 M% \        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
' m" T1 N3 k) O3 X: B% C0 r        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
% u. Y" A2 j2 J4 l; \                            Lines :=Lines+1;
- p" Q$ E3 c/ o  H                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
' _) w) g/ ]3 S. y# ^; L$ Y                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
  g/ X2 y3 I" B& [                        PartsTable[3,Lines]:=sprint("Parts");
0 S' v  y) Y* [/ Q                        PartsTable[5,Lines]:=Rows;
8 Q" j6 i7 t! D, k$ S+ K                        PartsTable[6,Lines]:=j;
0 w' z" t0 q0 q5 i                end;
+ |) v2 N' m0 F& J7 [- ]+ x1 ~. v* Q. C        next;
2 V" O5 h; r8 q; t( O5 s        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;
4 ]9 J& \8 ~' w* |6 D& L/ V$ K% m        Machine.ProcTime :=5;
9 R& n1 K  c: R. C6 I- }        Machine.label :=sprint("machine_",Rows);
' P+ t* X* g' ]/ |2 K9 n" ~0 H  w        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
# x9 j8 v6 Z, H+ n/ ?; |        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;
- m# v) {* x0 Y# g        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
0 O8 R- T1 }0 o7 t        .MaterialFlow.Connector.connect(Buf,Machine);
next;
! G3 ]* I8 c" E2 h( u# wend;

五五

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

wudi

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