程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; M) F& G7 P7 ?  lis
1 b" z, c' G! @$ ?6 Q# M3 ?        i,j,Rows,Lines:integer;
9 ]5 Q  Z' B3 U        MachineName,BufName:string;
5 t$ e8 x# {& S7 J  ^        Machine,Buf:object;
do
7 N" ?) |8 j& D: D3 H" ~0 K' \+ M        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
9 k: }& M. P9 |8 V: \+ q& o                when 16 then
                        print "Yes";
! Z, R. ?1 u( h  N: l                when 32 then
                        print "No";
                else
                        print "Cancel";
& F6 s* _4 i! o* T5 i/ F! j                end;
" x  q" J* G+ }9 l% y; U1 M1 R        EventController.stop;
  a" o& T1 [4 T% m, z/ H+ ?end;
# @4 M& _: Z! aPartsTable.delete;
3 f5 O6 R! c: F1 r$ vfor i:=1 to Number_Of_Machine loop
3 T& H; S4 n1 ?, K' e        for j:=1 to Number_Of_Machine loop
                if j<i then
' ^: G/ G3 [+ y                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
$ S+ M* ^* g* Y$ A/ U3 p                        end;
" F' V/ e5 v( o1 Z( W7 O) j                else
9 y% V( a* d: Z* }+ L5 z                        if j=i then
2 ?8 w/ Q6 l- I, d8 d$ [# R                                D_From_To_Chart[j,i]:=0;
9 {& u) _' H, ^1 w' E7 s' e' {; `                        else
4 c9 g+ e# |/ d; r$ a0 R                                if D_From_To_Chart[j,i]<=0 then
4 \5 [4 t5 n3 X$ [                                        messageBox("distence<=0...,",50,13);
. ^0 d$ I# K1 Y                                        EventController.stop;
3 c1 V' I3 ?- _5 d7 {4 T3 e) T7 z                                end;
                        end;
; s' }4 V( j' O# e5 t                end;
        next;
) l( w% C6 F6 M& w8 U% a- T* fnext;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
# d3 Q' ^2 w6 ^7 }$ B! K        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
" q; `) W5 n  r$ l        MachineSequence[2,i]:=Rows;
4 @/ F1 h$ l; ~: [1 f# R            for j:1 to Number_Of_Machine loop
  V' O: P# t$ ~; M' v: c2 Z; f% F                    if W_From_To_Chart[j,Rows]>0 then
! d2 M) i1 o4 B7 d: \                            Lines :=Lines+1;
9 Z, }( f1 I1 w+ `8 Z                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
  J* @/ b5 e. E1 R( S                        PartsTable[5,Lines]:=Rows;
" D8 H8 s% a6 n                        PartsTable[6,Lines]:=j;
4 ~, ^. S: e# }+ l                end;
. u3 i- I9 U& f3 d7 \0 m' U        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]);
        Machine.Name :=MachineName;
) w7 y  v, ^7 Z        Machine.ProcTime :=5;
7 z# l% ~; ]. ]* z2 t        Machine.label :=sprint("machine_",Rows);
0 o0 }, v, Z3 h" T7 o& e2 ^        Machine.ExitCtrl :=ref(Leave);
       
, A' e1 _, v5 V5 p        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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
; b6 Y% t  x- T) I7 ^4 D2 V& \next;
end;
9 a! q8 G2 _4 ^/ M1 {

五五

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

wudi

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