程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
: O  \: T3 \1 A& r3 u9 b. V        i,j,Rows,Lines:integer;
% T5 j! |& _- I! |. q        MachineName,BufName:string;
( ?. E. @% S/ m5 o        Machine,Buf:object;
7 [# m2 x% q* r1 m- ]" fdo
: O4 R2 y- z9 `5 c7 i4 O- C* Y% L* I        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
! F; P) N, K/ ]- N  J, I                when 16 then
2 j& G( N* N' n( @; v7 A- H7 Y                        print "Yes";
                when 32 then
                        print "No";
3 d2 r' E- [7 X$ l4 m$ H$ D* r                else
* x7 g* \) @; C$ f4 _; g0 B                        print "Cancel";
% c  t0 D( Y* y) ]                end;
        EventController.stop;
6 T( D/ w% X4 b9 G3 V: t7 H4 `end;
3 E. v5 l; h9 I1 S" y3 iPartsTable.delete;
, F7 G" @  V3 u6 e+ F9 b( Ufor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
. P  l+ \& L6 G+ r                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
: n6 v- c* D( D8 Y: C) D                else
- p' ?3 s5 ^3 m" X                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
6 `0 }8 T% Y- @- }& W7 _8 ?( m                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
  F. X8 y: G  F" h8 A; `+ a                                end;
; l- |, t) y1 ~6 m7 K4 Z  h                        end;
% S, R2 \  ?- o" e3 B8 U0 h) D; F                end;
        next;
: W) c, _8 W8 N% ^+ X. |( h- f6 Z5 Dnext;
& Q! u! b" I$ F8 H6 q
end;
4 X) m6 ^2 H0 P
; |5 I  q+ x0 X* l( n    Lines :=0;
& q5 v" F* K2 S- ]" t* q        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
! s  l& ~2 n4 U/ c# X; j! `4 t        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
- {" Z, j9 g! O+ y0 ]                            Lines :=Lines+1;
! P) ~4 i! I3 e- i, V+ B                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
# e2 b- h7 U* b/ Y' t+ i, Q                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
  _8 K4 I/ S! w6 O! j; @) f8 y8 @5 s# I                        PartsTable[3,Lines]:=sprint("Parts");
* C% ^5 s6 H) B; I& _* F" \6 J                        PartsTable[5,Lines]:=Rows;
6 c: n2 `2 g: q: v                        PartsTable[6,Lines]:=j;
                end;
        next;
1 J  ~( L0 ~" k4 E9 H! M$ x$ J        MachineName :=sprint("M",Rows);
! g# F$ v, Z* S4 S        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;
) E9 k% P/ ^9 t- m9 X        Machine.ProcTime :=5;
- z0 X& g1 L) g. u) l" V        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
- I3 e' D# e/ q6 J2 l+ G        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]);
# D( M. U0 ]# `) |5 U8 R                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
' ]9 e- s- m  @- t: K" t, o8 y. p        Buf.ProcTime :=0;
# X6 J% ]6 K- h# A/ e2 x        .MaterialFlow.Connector.connect(Buf,Machine);
4 a1 ?3 q( W! c9 w2 {/ knext;
7 e" _/ z5 q1 j; ]* \" Cend;
% W2 {) \* f) ?, D9 W

五五

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

wudi

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