程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
+ s7 C* [. h$ d# ~% r. _* u        MachineName,BufName:string;
        Machine,Buf:object;
do
8 c7 ^  M. ~( |' X3 p; T: h% U* G        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
, l: x' W& y+ }6 h9 K# b                        print "Yes";
                when 32 then
1 E7 m; }# A/ G+ m                        print "No";
) R1 E6 [' L& p                else
% D% R" E, Z2 v- q                        print "Cancel";
                end;
$ p" _$ D, p1 o$ x, P8 J        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
5 F+ [# q5 w: p. _/ y4 ]        for j:=1 to Number_Of_Machine loop
                if j<i then
5 Y0 K$ P/ \8 l: o' o- m                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
5 k5 w1 X3 @' M4 N3 g                else
1 V( O. q+ q  @- j$ Z- \0 f/ m                        if j=i then
                                D_From_To_Chart[j,i]:=0;
0 H' ^5 B; _( _8 }, n/ Q( D                        else
% ]; i$ D& ]  M5 a. \7 e+ w                                if D_From_To_Chart[j,i]<=0 then
7 a! z) {$ ]0 l                                        messageBox("distence<=0...,",50,13);
# V* C2 E. [' s! g* F0 e0 h8 |- d                                        EventController.stop;
% [$ k+ ^2 K0 G6 d2 E9 A                                end;
                        end;
8 s( r3 ?1 {' ]                end;
        next;
4 S% R- J2 z3 w6 W& ?  Knext;
4 i0 [4 d/ L1 z, l
  y) M  k% A$ r, `* D$ `end;

    Lines :=0;
( `6 D4 r( k# l- x        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 j- A3 v) e5 F  m        MachineSequence[2,i]:=Rows;
$ i! f8 d7 w6 m+ W( k( \            for j:1 to Number_Of_Machine loop
; z* j( d' T; t" g6 `                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
& l( g! t! L6 |. T& l                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
4 {5 `- a2 Z" `2 c! Q* G                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
3 W2 m. p, x8 j4 k; _: P                        PartsTable[5,Lines]:=Rows;
. I$ s. ^( ~& `! o                        PartsTable[6,Lines]:=j;
                end;
6 C$ K1 Z' J, ^4 |. }        next;
" x( W, X) c0 w+ a5 A  @        MachineName :=sprint("M",Rows);
8 I. o1 G) O! L0 H6 B        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" A! m. O' q( h9 a( T        Machine.ProcTime :=5;
. ^# z* m5 N/ k* P; I9 U        Machine.label :=sprint("machine_",Rows);
" Z8 q. |* v: Y$ f+ l( A: t        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
  Y3 [+ j0 @! x+ r4 y        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]);
( I1 N/ H' m. D                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
3 q; t8 g5 m, E        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
5 o; b& X* s, c7 s7 O* anext;
$ V  u! N- r) ~" S' ^& E, cend;

五五

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

wudi

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