程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
9 P( f, t7 q. }, p2 p5 @9 M! _# g        Machine,Buf:object;
2 }, V# g. V1 Qdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
2 A" K' i( x  u1 O# ]( h3 B; A  |                when 16 then
                        print "Yes";
! M! C  s* X0 j: C& y, O                when 32 then
1 \; R% w5 d* X7 S                        print "No";
                else
                        print "Cancel";
3 P. v4 l% {) I! E7 g# ~- o  m                end;
! [1 R4 i; O2 d) k) a6 E% u        EventController.stop;
end;
/ u% V( E* X1 G2 F0 S5 }. BPartsTable.delete;
for i:=1 to Number_Of_Machine loop
& j7 u" @# ^% f! G* L        for j:=1 to Number_Of_Machine loop
" G% \" H% d6 J' L1 B* X                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
4 K1 r4 \* Z0 O! A+ m+ N, @                        else
" V) |' u! z' ^: M6 r8 }                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
/ R; J9 \0 _4 t- s+ P* B                                        EventController.stop;
                                end;
, m& c- V' D. ^) o4 L0 U                        end;
                end;
! g7 H1 A- [; M. L- s        next;
. U  h, Z  P' F" anext;
* e4 S( Y/ K# M0 T1 c0 \; B
end;
( Q3 y' q1 J8 V. H" f
( W. L1 ?$ |/ e$ E    Lines :=0;
1 M( ?8 f+ v: \) C/ J% i/ J8 ^        for i:1 to Number_Of_Machine loop
7 d6 H& `1 u6 y" |2 \+ o        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
: E/ Q/ J; A/ ]$ V1 ]        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
% O5 a+ l2 n( z' w4 f) l                            Lines :=Lines+1;
% d% S5 W* ^+ T8 B1 G6 u% P! ^                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
/ O5 b2 M) Y. h2 c, R" w  O                        PartsTable[6,Lines]:=j;
                end;
        next;
% f+ d# @4 Y  ]0 L) c2 P* ]+ O        MachineName :=sprint("M",Rows);
, Z3 z! `$ |2 r4 w1 C4 O        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;
' K$ \* I1 _: b( x3 Y        Machine.ProcTime :=5;
: E3 D0 C$ Y: O  T; X, ]6 U; O+ U9 ^        Machine.label :=sprint("machine_",Rows);
: C! T; f! M7 R9 t        Machine.ExitCtrl :=ref(Leave);
       
; T) s% k0 H  s8 ^0 @; D; i' s; e        BufName :=sprint("BF",Rows);
- f! c- `" t) m0 p' F0 d9 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;
7 k/ L9 j  q$ Q* p        Buf.Capacity :=5000;
: u7 r) V% m; g! g6 m7 H        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
) G" V$ v2 X) f! U7 S& i1 ~  Pnext;
end;

五五

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

wudi

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