程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
7 l8 O' Q& l% H3 p' p" Sis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
5 v  p; u* E% L8 B% {" e6 j8 z/ [        Machine,Buf:object;
do
8 Z8 o1 @9 M3 h# c8 D5 [        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
: J/ M8 G7 ?" B* x7 T9 [                when 16 then
                        print "Yes";
" ?8 K  P! h( C, O; B' g                when 32 then
3 X* q8 y* V. F' {; D. T1 c/ k, K                        print "No";
                else
! ?  L' t9 I% G1 @# Y                        print "Cancel";
9 ?& N8 m* k1 ]3 S" \  ]4 H) P, ^                end;
2 [2 \) s; W- B) P        EventController.stop;
1 Q. ]7 B+ Q: ~  c# M: M% V6 cend;
$ [# B: D0 Y5 p5 X- yPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
0 ^% U' {/ z, h& ]                if j<i then
6 z& p1 C7 |* N* y4 a( ]$ ~                        if D_From_To_Chart[j,i]<=0 then
4 \, b- v* }: U' J4 [8 ]                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
$ c3 q7 e! T4 E6 Y1 \4 n7 G                else
                        if j=i then
" y" P3 j. r* _) ^8 |+ f9 y                                D_From_To_Chart[j,i]:=0;
2 W$ b- J" i: g, d/ `                        else
6 u. P7 h3 R# c& `8 s                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
+ ~# W, U0 J7 W$ @! N                                end;
1 p5 y) I+ ~4 I6 x                        end;
$ r6 c; m, e4 Q7 |                end;
        next;
next;
8 x8 c+ Z* U/ ~% ]3 v
5 |# z/ b  y: F! Y: F& Q" J+ p: kend;

    Lines :=0;
) @# s( g8 w8 w  c        for i:1 to Number_Of_Machine loop
8 L* P4 g1 w8 H        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
& }* k: ^) t6 x! C4 Q& J) Z            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
0 r1 h; _* H. u4 u* A                            Lines :=Lines+1;
7 o- i5 i6 V, L0 z! P0 V. n  w6 p; v                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
$ D% m% |, S6 F/ ~                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
: ~/ G) K7 ]9 G% V' Z6 O7 I: i1 p        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
) J- T$ g; b7 V6 y0 M/ I* q. m       
        BufName :=sprint("BF",Rows);
+ F5 ]1 m* ?0 O  I! l) g* z        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]);
) k8 L) }. a: s4 S                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
& c% c. Y4 I' u, k, @" b        .MaterialFlow.Connector.connect(Buf,Machine);
next;
/ L# R$ Y. N+ z  N$ i! ?end;
  k& I; e; h& F; J4 w

五五

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

wudi

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