程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
4 h9 _% n* Y6 p9 l( H1 V$ C* xis
        i,j,Rows,Lines:integer;
, O, e; T$ o) ?; q( J        MachineName,BufName:string;
( D( _. ]  t; S/ N% w- V        Machine,Buf:object;
3 ^( a" h$ @$ P1 [9 X) l* ldo
6 j) a& u1 }1 \* F$ ?4 P        if Number_Of_Machine/=D_From_To_Chart.YDim then
/ S+ G5 ]4 c# n/ j( |( Z3 L! P6 }/ }& E                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
7 h/ y% m, ]: c1 v                        print "Yes";
                when 32 then
" P5 W8 n( ]  ?5 T% e                        print "No";
) Z! u7 i" o) ?8 o2 P% }3 t. o                else
                        print "Cancel";
" u1 A3 z* E& M( M$ e1 A" s7 B) F% r                end;
        EventController.stop;
5 \- C' Y' Y! W/ ^- J* t" Cend;
7 _, o8 Y! r( a4 D2 aPartsTable.delete;
' P# V! v/ W& _for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
$ u7 J( `7 R& z* c. v) u2 c" [                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];
( M& P- v% H) L( W/ z% F0 b, H                        end;
                else
8 O) ~: \' G3 i; P                        if j=i then
& C- @1 x3 R# F* F7 H: {) D0 P, r% |4 h                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
2 m/ Q6 f# U, ]# h0 U) m                                        EventController.stop;
                                end;
+ Z; G, j) t1 `) ^                        end;
                end;
        next;
3 e, e! T9 ]+ Y/ L/ z% D8 tnext;
' |9 D0 D$ u9 ]' i/ w
end;

/ A, l/ W8 P3 x# N    Lines :=0;
8 H( B$ k; _; b: r0 P        for i:1 to Number_Of_Machine loop
- o" z* C- r1 Y6 w  l. ]- ~        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
5 w% z' ^7 v- X2 f6 H        MachineSequence[2,i]:=Rows;
3 O2 t4 Q! z% K; f1 t. M" D3 x7 y            for j:1 to Number_Of_Machine loop
, Q  y+ {& X* |. T5 P                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
8 h7 g7 J! x0 v: H9 a4 l                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
+ W4 _4 d0 F- i                end;
; K8 ?% d; v: d7 W; F        next;
1 U9 h# U" e$ D3 S        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]);
5 m3 C" }9 S9 @, U2 q% G        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
6 J, f! h- x0 Z6 p: a) K( y. B        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
, Y) l1 D: c7 I' ]8 f/ H7 N       
' D8 q- Z9 i4 U4 b  ~6 _        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]);
* @, a. U7 M7 L" ]7 w                 Buf.Name :=BufName;
1 R: L9 J! f. K! c- C6 r. x        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
6 z& h- b6 k! U) x* A0 s4 `next;
end;

五五

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

wudi

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