程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
8 N/ G' a0 A* C% ]3 z        i,j,Rows,Lines:integer;
6 V% J- B8 p  o( K        MachineName,BufName:string;
& }4 x& g5 L9 S7 t        Machine,Buf:object;
6 w+ J& h8 F1 n$ j# J% l4 Q( O% \: ]do
1 J5 ^* k8 ~' b4 }6 g5 r  o        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
5 x6 f" R+ q/ ^                        print "Yes";
+ M$ s; i# C: F. D* L9 D                when 32 then
+ C1 n- U+ c: T! I% |                        print "No";
                else
5 s' I) Q% B' V# Q( d2 K( j& x" S, J( Y                        print "Cancel";
                end;
; ?1 C, \3 F/ e, d  b# x2 R        EventController.stop;
end;
PartsTable.delete;
! @+ {* {' W7 L5 c; t# ^, d) cfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
5 P9 r  X' ~% a1 \7 k% x                if j<i then
( I' d0 v1 Q: j                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
& y3 F$ E; s6 {4 [                        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;
                                end;
3 d; A* g1 t0 S0 I0 o/ z4 g2 Q* z                        end;
+ w- f1 r8 n% E- H$ R- j& I                end;
        next;
6 Y  j4 o4 ?5 N6 Pnext;
/ C6 t% r: p, |2 t1 Y: ?7 a
7 b' v& n7 @+ L# X5 @end;
7 l: ^" t' `+ s7 j( Z& p
; f, D$ h; |2 x5 Q' l' m8 R    Lines :=0;
        for i:1 to Number_Of_Machine loop
$ G/ f! r  f% c        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
4 T( U7 i# |( I; T/ G                    if W_From_To_Chart[j,Rows]>0 then
  e0 H' o# W8 C: d                            Lines :=Lines+1;
$ I/ y1 C* _# j3 k2 H1 R                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
- J* b7 V# B2 B3 G2 i; X2 v                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
" |  n5 |; W% ~1 l        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]);
        Machine.Name :=MachineName;
* \& t+ h9 `: r) a1 q* s1 h        Machine.ProcTime :=5;
4 C- g, n+ [* `! K, D' g! O        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
6 e; Q* M* [9 ~: G6 I        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]);
! ^9 c' i9 J# Z( V$ p" P                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
0 `. w5 d/ J& \- h1 {" ]; X/ q        Buf.ProcTime :=0;
% ~  B" S/ ?) {; F) K        .MaterialFlow.Connector.connect(Buf,Machine);
3 z; A. e; ?$ U3 \- bnext;
& d6 x, W- A5 o' J9 q1 H/ {end;

五五

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

wudi

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