程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
2 _6 U+ T$ E7 _is
5 V4 R7 a7 Q6 W/ L. \/ K5 [        i,j,Rows,Lines:integer;
. G% V1 v" C3 S$ R1 g# B$ A* ]& V, ~        MachineName,BufName:string;
; \1 R7 G# U7 R& _5 v- d' ^/ M& E        Machine,Buf:object;
do
6 Q, M2 r3 g* K$ z  G        if Number_Of_Machine/=D_From_To_Chart.YDim then
+ v2 C4 y4 ^  b                inspect messageBox("Number Wrong...,",50,13)
( F6 i" z  l& V3 `* n: l                when 16 then
                        print "Yes";
                when 32 then
- v. c6 d: f, e- t6 f4 R                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
! e, X5 ?* J1 Q8 E( `: T# W  Lend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
2 D4 J: I5 w( O8 r+ c, L% @                if j<i then
2 t  ~$ |  u5 S) Z, y& N' g; f                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
( W  G3 b7 e" m                else
                        if j=i then
2 I; h: ], M) b5 n5 V                                D_From_To_Chart[j,i]:=0;
5 |3 u- o! C6 n& O  o7 M7 p, J                        else
                                if D_From_To_Chart[j,i]<=0 then
" T, h5 D- X7 j9 H5 n                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
+ |$ p6 v" h% x. D" I; ^0 m                                end;
                        end;
                end;
3 |4 k3 U  a( B7 u% y# F/ v        next;
! q8 Y- B( U$ j( F0 b- x& bnext;
4 z  A7 }" |' l8 x8 x+ X6 Z
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
$ H2 U! D+ s/ b% s* `5 o        MachineSequence[2,i]:=Rows;
" h) h* c6 f) |- I            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
2 g2 \8 W+ d. j7 r0 n- ~) l                            Lines :=Lines+1;
; W/ B8 c' E9 C3 E# a7 C# D( A                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
( Q% Y# r5 o0 I* n) v                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
" ^* D! Y3 r" {+ A                        PartsTable[3,Lines]:=sprint("Parts");
  e# R4 V' A0 r/ n                        PartsTable[5,Lines]:=Rows;
: Y& j0 m. e8 R0 s2 x                        PartsTable[6,Lines]:=j;
# {- D" t' f' v2 ?                end;
        next;
6 @5 e/ A8 T9 O; V) U! w0 A! O        MachineName :=sprint("M",Rows);
# D4 C. @$ L1 h( H" V: D5 x( o% Y: c        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;
: n# _( m) E8 o& x# q! G5 B4 P        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
, i8 E7 \$ _% t4 j/ P) N        Machine.ExitCtrl :=ref(Leave);
4 q% |: X7 `& h0 }% |$ I& V2 {2 v       
        BufName :=sprint("BF",Rows);
, |, S: j/ s3 ^2 @6 w! 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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
0 N5 Y! h7 j& _' t        .MaterialFlow.Connector.connect(Buf,Machine);
2 ?; @/ Q2 Q. l. f! ^) T& W% N% S  rnext;
) ~" q- o2 v, A2 {: ~1 }' t: Oend;
$ _. B3 Y( h- h( N- G7 ?, ^

五五

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

wudi

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