程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
  m2 g- A2 m8 V: e0 Y# yis
; F" A! H# n' C* n4 L" i        i,j,Rows,Lines:integer;
9 J4 t! P( S7 S0 p0 m8 @, D8 B        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
, j+ W) A, D) g+ w! Z! ~9 @+ c                        print "Yes";
0 Z. h" ?( T5 P0 n( }) X, K  r                when 32 then
                        print "No";
& F4 H4 o! }3 B6 ?4 S7 K8 z                else
! W- i. z& T/ u0 K' K                        print "Cancel";
8 x; j5 R6 V! Y                end;
# K% N9 b$ W7 I6 e        EventController.stop;
end;
& u& |, e1 o7 K) EPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                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];
. m3 A7 w8 n  ]/ c, U                        end;
) w9 @; i. G: I/ x0 O* @                else
1 N( r, b% Y: O: ^; r8 I                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
& @  `- d$ r8 u: h/ M                                end;
9 K" @5 {" S6 x9 a7 q5 b% @                        end;
9 W: p/ e  \( |# u                end;
* t2 ?9 d& ]/ p4 R        next;
# p3 i3 T2 B( j7 M* y6 l( m" n1 Vnext;
* G$ o9 z# Z0 f0 N, b+ a& @3 A
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
7 r) L' c  M" W        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
. K$ N7 ~- E9 [& f        MachineSequence[2,i]:=Rows;
3 S8 a4 b# z* g3 e- O            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
& J8 D6 W' I# P2 B4 P* S1 I                            Lines :=Lines+1;
4 ^' s  e' u# W! W+ L. B) C                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
2 R2 v9 l0 ~' ]5 R! }                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
7 l/ `4 Y& _. E7 ?: \                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
/ q9 e$ g' J. `6 x2 R                end;
/ ~4 a! ?! v. o4 `, P. u- k( T        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]);
: q$ l8 {& E$ p2 {( T2 r2 ~        Machine.Name :=MachineName;
% A+ y! l$ F7 Z5 g. I2 }        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
0 M: O  T" r. d3 g' s7 I& w0 t        Machine.ExitCtrl :=ref(Leave);
8 A' X. ]  K1 o       
        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]);
, U* e. u7 O, r, h" s                 Buf.Name :=BufName;
& i1 Y& Z3 A4 c% {  J        Buf.Capacity :=5000;
, L" i# G4 b% E* {% P        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
4 a; q; A4 d$ f1 x3 Y  s- k* Uend;
3 m' E0 j+ C" D

五五

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

wudi

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