程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
+ e4 Y3 C6 F% H* c1 O: t% gis
2 D% I5 j, ]6 e        i,j,Rows,Lines:integer;
5 W$ V3 B4 J9 s; i2 x9 s% \7 ]        MachineName,BufName:string;
$ X0 S5 d' Y2 C* y; h3 V  t        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
' Y) `5 B8 W/ W# g                inspect messageBox("Number Wrong...,",50,13)
. i& M( I! d% @9 k  G: P) ?                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
& u8 z" k# ^. j5 D  c4 A/ z                else
                        print "Cancel";
* g: @. b, {! c- F$ m                end;
5 A% h: s4 n) {% m* a9 E( Y$ c        EventController.stop;
end;
' G+ H& X6 a) S& L* U* [5 [PartsTable.delete;
for i:=1 to Number_Of_Machine loop
1 F+ r, D5 d+ l- }        for j:=1 to Number_Of_Machine loop
                if j<i then
+ P3 |3 c$ r" t                        if D_From_To_Chart[j,i]<=0 then
6 M6 `2 h& m: P7 F                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
" W8 m0 V2 {3 r; b: @9 ]" s' l                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
; Y8 k) c* p- X  q                        else
                                if D_From_To_Chart[j,i]<=0 then
" P9 B% p$ |8 V% g/ U; ?                                        messageBox("distence<=0...,",50,13);
0 U0 u" D1 K- W                                        EventController.stop;
                                end;
/ i5 q% A- k3 }% T                        end;
                end;
0 G$ z+ j3 V1 v; ?- y! b$ S        next;
. O4 |! m- ^+ Mnext;

, {" p9 c. z3 C3 y1 z1 F* Zend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
7 h$ a* `: G; ]4 R; F* [        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
- d9 h/ B) @" W* d( ^1 i% f/ v        MachineSequence[2,i]:=Rows;
1 Y8 F, W% x% R, b& ^            for j:1 to Number_Of_Machine loop
! E8 q0 \" w2 ?4 S) Z0 s                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
7 d0 G$ X, T, K( A0 ]0 e2 E/ ?                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
4 j8 v4 U. T0 m8 O                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
! T. i1 k% q# i2 R                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
) e+ x2 U) p# ~" Q! \% Q& q* d4 G, A                end;
        next;
        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]);
0 f- Q% Q3 H# }7 |  D4 h* k        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
  q5 e& m& L4 t" F+ Y/ Q, I        Machine.label :=sprint("machine_",Rows);
/ T' ~7 _+ e4 x) R. E        Machine.ExitCtrl :=ref(Leave);
# S# M! Q& k5 _8 B* C: G       
        BufName :=sprint("BF",Rows);
+ V) b; P' J5 b7 t6 V/ s' O        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;
        Buf.Capacity :=5000;
) \' v' V9 `1 d* N        Buf.ProcTime :=0;
, `9 C, B2 Y7 I) ]        .MaterialFlow.Connector.connect(Buf,Machine);
" w0 Z0 m; L: N3 I/ {5 E: r  A: Inext;
. I- i6 \  m. p/ L, t4 g, ]end;

五五

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

wudi

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