程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
, o( T; h& r9 |4 Y& G        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
1 h- |3 h, a' S$ {        if Number_Of_Machine/=D_From_To_Chart.YDim then
4 {% \$ w; H7 p" s# q( b                inspect messageBox("Number Wrong...,",50,13)
( f2 q+ U/ |3 T1 e                when 16 then
! y' N- c9 @# H, G# F# Z                        print "Yes";
                when 32 then
                        print "No";
/ ?+ H( [, W7 z* `                else
                        print "Cancel";
6 d# W/ d  |  \' [3 P7 t                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
- A* I: W( Q0 O3 _        for j:=1 to Number_Of_Machine loop
                if j<i then
% }7 o8 B: `1 _% q- y2 O7 A                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
- s2 ^+ L: X* b2 O! D4 k+ Y                        end;
. w5 r/ n5 A3 B, b, h                else
                        if j=i then
0 G3 a$ f9 O" m; Q/ V8 |8 ~" D$ z: z8 i                                D_From_To_Chart[j,i]:=0;
5 ~, s, C% j) `$ N                        else
$ Q! W; Q& s9 s! M. d) M! W7 P                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
$ f. |4 l4 Y0 J) b  t2 r                                        EventController.stop;
) x" g' C# i0 @' U                                end;
                        end;
                end;
$ N& _( y0 s5 [2 ?5 }$ I% E* h* b        next;
4 A/ l9 o6 {9 V% `$ }0 X+ ~' tnext;

end;
6 `5 t9 i2 `$ I" m3 Q7 X! _" h$ j4 N
* m+ B% m4 Q7 m1 k9 P    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
- F4 L: \2 l$ |2 i* P6 y            for j:1 to Number_Of_Machine loop
4 _* y6 l. Q8 I                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
; C' h, t0 _* n- M                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
( J9 q  I! e- O7 K                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
" c) U2 O# l+ }; Q  I        next;
        MachineName :=sprint("M",Rows);
( H) E0 c5 B0 q        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]);
) r0 P1 O4 N9 t/ B% c        Machine.Name :=MachineName;
1 j: y4 q' y$ y# a4 o        Machine.ProcTime :=5;
* U" M+ I% N; D( V1 O        Machine.label :=sprint("machine_",Rows);
- b$ w3 f$ n  h4 l7 U        Machine.ExitCtrl :=ref(Leave);
1 U1 o+ X  Q4 m  c7 E       
+ c! }4 b1 C# o9 R5 r, m  D  ?        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;
8 n8 `" ^( v8 P  k9 }: p2 o7 Q' X3 }        Buf.ProcTime :=0;
7 Z, x7 x9 D0 |$ d1 R        .MaterialFlow.Connector.connect(Buf,Machine);
6 W& z# _, ]6 |; x9 I8 e+ C3 ]4 qnext;
end;

五五

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

wudi

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