程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
1 g: L1 E6 \8 r! V6 gis
        i,j,Rows,Lines:integer;
+ F$ t2 I2 S2 k0 _2 S3 V        MachineName,BufName:string;
1 g8 p% W8 d$ q6 z" C        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
) K: z1 m  ~0 k- M( D9 C                        print "Yes";
                when 32 then
                        print "No";
                else
! Q& F% y$ O0 v3 m: j                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
& a* l7 |4 N( l9 I9 l: P                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];
8 g% D2 m7 q) ~- x: D, U1 T& I5 F                        end;
                else
- I# n, o1 X) E" U" [                        if j=i then
5 k/ ~6 X% U; R                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
+ R( \0 p, M+ W# ?9 q) G: J                                        EventController.stop;
0 R- a  }% R6 W& a. y& G                                end;
4 `2 x2 S. B, K- ^# V& B                        end;
& x: H1 r* Z- r* K4 y% F$ x                end;
) P9 j) y5 @, t& E  F. ]$ l        next;
0 I6 l0 H2 p" W1 {( U) [next;

# e+ P' a! z& o* z# cend;
: `" F* ^- {6 D: x" \) T9 \1 Z
    Lines :=0;
  X. t* o/ P3 e        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
6 A! k5 _) v1 l" n& y1 ?            for j:1 to Number_Of_Machine loop
+ v+ k* s+ G  \- t7 G4 I: c                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
; x6 a" ^. o( t. W                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
' Q( N, p- X7 ]( W* L) i5 h                end;
4 T/ h# {- V! l7 y        next;
0 s3 _2 {) y' E# h, x" t; j        MachineName :=sprint("M",Rows);
: h1 ^8 G( `$ B1 ]        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]);
+ s* V& ]& I0 I        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
" k4 {7 q7 R! s# `' b) y        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
" _  |& e/ P% l' A5 P       
        BufName :=sprint("BF",Rows);
: N7 a+ H( b3 t, S        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]);
; j3 i8 b: a  c/ t9 w                 Buf.Name :=BufName;
; Z2 t( }5 \! i% X; h        Buf.Capacity :=5000;
7 b& O8 q& u) z5 h        Buf.ProcTime :=0;
; E/ j& P7 Y% G8 F4 w; e) [) S) z        .MaterialFlow.Connector.connect(Buf,Machine);
, d3 l' Y* n8 A. I5 e( g( Hnext;
end;
/ G% e/ Y' @4 u0 V. O

五五

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

wudi

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