程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
* H8 r; n1 V; U9 {1 ^        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
" ~1 W) k, m6 u% c* c' s4 v                when 32 then
& w- `6 J. X2 X6 ]                        print "No";
7 A* H" Y6 Y2 `9 [% b; t                else
                        print "Cancel";
/ O9 K% |9 P+ ?% H- Y                end;
        EventController.stop;
4 s9 T6 p% _7 L0 e/ C9 R: j% G/ ^& Pend;
PartsTable.delete;
! B* h$ y) m9 M% Q+ o( g" V  qfor i:=1 to Number_Of_Machine loop
, \) _1 C) L2 c; n        for j:=1 to Number_Of_Machine loop
                if j<i then
+ N) f: Q& {+ r                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
! l' A2 L* j" A8 K' |& x, Q' h+ u                        end;
: U6 W* T+ I% w                else
8 T3 _* z5 f0 n' J/ L' {2 f! f: n) A                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
* k2 v% S0 I5 K) q* P4 p) |! [$ h                                if D_From_To_Chart[j,i]<=0 then
6 Y5 b6 u5 B& ?2 I2 F% c; b                                        messageBox("distence<=0...,",50,13);
* @* B9 i6 s8 a$ F* A$ z% R, Y: }                                        EventController.stop;
                                end;
                        end;
0 ~  M# ?+ w! w. d3 ~9 n( s                end;
) f: [/ e+ q, z# j+ S( `        next;
next;
% t# W/ }, g0 U" A7 A1 c
1 V3 R, u# y7 R* Cend;
0 i+ z) f0 i$ }" e
+ S/ c5 }/ W* T& `4 [: j+ f    Lines :=0;
$ q! a! I2 t% V0 ?  f# @6 s        for i:1 to Number_Of_Machine loop
' a1 i! j. E1 p% S4 d( q        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
+ [4 E) R- M6 P+ ~1 ]# W        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
6 m" ~0 S" ~# F$ `" x( O9 W, h8 ~                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
% B7 D$ S/ ]# ^& a6 F/ Y- V                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
0 t& M! v( h! c6 o1 T                        PartsTable[3,Lines]:=sprint("Parts");
7 x/ }+ Q, g3 @3 g/ V4 v                        PartsTable[5,Lines]:=Rows;
3 H8 A$ }! o& O  f7 N                        PartsTable[6,Lines]:=j;
                end;
7 d$ R- X) n$ g! o% E7 W        next;
! ?2 x. h1 h: A3 A1 e        MachineName :=sprint("M",Rows);
8 }9 T; G" [* ^        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;
) a  a& H/ B6 X$ P8 f# g- j        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
, u- O' a) V3 O+ ~4 U: m5 r       
        BufName :=sprint("BF",Rows);
! R3 t0 |4 Y7 }" j& I        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;
0 {$ }9 T* J% i; s0 I2 v, ~9 S        Buf.ProcTime :=0;
3 f0 X* B- Z2 R" v3 F# }. m* b        .MaterialFlow.Connector.connect(Buf,Machine);
' g/ E2 ]/ W- Y1 k$ Cnext;
end;

五五

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

wudi

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