程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
1 v! B* _, r% Q4 A4 Pis
; ?; G% b) P' Y6 u7 H0 _% k+ O- ^        i,j,Rows,Lines:integer;
5 l4 z- m* k7 F4 B7 Y        MachineName,BufName:string;
        Machine,Buf:object;
9 ~: |. n: [- f$ Wdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
2 ^+ n( B/ ]2 M9 v: e$ a- d! k                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
3 h+ u% k; Q, l  [. R                        print "Yes";
                when 32 then
: b9 k1 w% {2 K: I+ n( `2 T                        print "No";
' \7 ~) u- Y( a1 x/ L) Q                else
                        print "Cancel";
% h' s0 J' Y& m' q8 S. }" `) X                end;
8 C- o0 P$ r0 [, j& j4 B1 ]        EventController.stop;
( t: |, L, u& T0 R: ~end;
8 W1 q. N, q( |) E. m  ZPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
4 }/ q# [# \- U                if j<i then
! f# l; Q" {' q" [- z( E9 W8 Q8 |6 i                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
7 D! W) [; w7 A: j8 w                        end;
                else
                        if j=i then
; `& t1 L8 L* W+ x8 K5 @; H                                D_From_To_Chart[j,i]:=0;
3 V( J" z0 o- s7 S                        else
                                if D_From_To_Chart[j,i]<=0 then
% {! b" }" C8 m                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
1 d$ ?  I" i* w, O* h! [                                end;
4 q  I, `8 @$ Q8 b0 x8 Z) f4 r                        end;
                end;
- l1 O6 S" t+ T# I2 J: A( V        next;
( A- ^$ L# k; [- E/ ?* J) X/ Jnext;

8 g0 r0 S5 S! z4 U2 d# fend;
7 m$ u4 o$ i  s) F
    Lines :=0;
* T" h2 i8 ]" x: g  U; r8 C& `        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
9 G: |2 O; }7 u+ N7 t) J. }" J6 G        MachineSequence[2,i]:=Rows;
8 f0 I% f# L1 z5 t( w            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
9 T- A9 J/ x0 ~: B' N                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
8 T9 C4 y+ ]# W. u                        PartsTable[5,Lines]:=Rows;
7 O3 \: ?2 h4 d; q* ~4 |                        PartsTable[6,Lines]:=j;
                end;
; k8 l8 O  ?' e& }1 {0 \0 t        next;
- }3 D9 ?# v/ f! F' X, C        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;
4 m, A7 G2 ^( L2 L, }$ ^; f+ x- Q        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
; W% u* i: Z6 d2 O& d        BufName :=sprint("BF",Rows);
/ {0 r( Z+ N$ f        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]);
* {7 u* |* K: }/ f3 ]8 |                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
! d' x( K) t* R        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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