程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
* n( t4 v1 J& l& V7 _& Eis
# f5 ?$ Z& U5 Z9 V6 Y  K        i,j,Rows,Lines:integer;
1 {; J: O! ^3 y: t5 K4 n        MachineName,BufName:string;
        Machine,Buf:object;
3 k! s% g& N9 J" ~do
" G. r7 w" q& n# l* Q  A  k        if Number_Of_Machine/=D_From_To_Chart.YDim then
( T9 C/ {  \2 T: ^5 c2 T                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
8 m% P7 R/ h. G- X                        print "No";
! V& ]% ?1 J/ ~9 s$ H                else
/ {* e0 p* s+ C                        print "Cancel";
) W! J6 W9 s/ \' H2 j6 F$ v( H- v                end;
2 E' h# z; z4 ^$ ~7 d. _        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
. U2 k2 V" H7 e) l/ ]        for j:=1 to Number_Of_Machine loop
. `) }7 G) t7 J+ `+ A* c/ D                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];
: F7 f* |' c5 p2 M                        end;
                else
  b; _  a$ B  b* m# J! I                        if j=i then
* w6 z: U3 L1 A                                D_From_To_Chart[j,i]:=0;
. V: r* O; E2 z8 D9 K) ^4 ?                        else
  i  C+ `0 D# k2 _                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
( o7 ]6 W9 ~& z* ?# ~* `                                        EventController.stop;
0 s# h! [: _, t6 H: s5 O" K                                end;
( d1 x8 m7 c" t: C3 ]8 e! Z                        end;
2 o; B6 l, f1 y! J                end;
8 Q& R, R% [, O' r7 d0 U# f        next;
0 {  K+ e* ^& {9 \/ \: |next;

" `& s( V2 W4 _- @* w3 ~$ w( K, nend;
; W8 R4 |0 `$ h
: i* Z6 z" J# @/ o- H0 P. q    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
: L/ H( S5 I) p        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
; }* W8 v0 e2 }                    if W_From_To_Chart[j,Rows]>0 then
3 i2 ~5 a+ j/ C* v+ c4 s                            Lines :=Lines+1;
  F. n( O2 L; a" d2 N/ K5 V& U: U                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
! w; H1 Y& _% I5 H  G8 n9 v                        PartsTable[3,Lines]:=sprint("Parts");
: l0 C1 P( o6 l: y  H$ Q9 u                        PartsTable[5,Lines]:=Rows;
7 ^/ t& n9 a: R; {9 d+ e                        PartsTable[6,Lines]:=j;
( v9 m5 C4 ~6 L% z6 i, e                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]);
. E* K# F( e- u3 G4 B" r  N        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
# y6 g: Z; b/ `8 ]$ R        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
: z2 u' c: J7 K/ N1 N       
        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]);
. R2 E. o* q, }- N0 X                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
7 T& C# g+ D2 s& S        Buf.ProcTime :=0;
! s! L4 v5 C( d$ c        .MaterialFlow.Connector.connect(Buf,Machine);
8 B% a( L" m$ n) \3 ~/ _7 knext;
! V6 h8 H2 S4 M! y! \end;

五五

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

wudi

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