程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
: C9 y6 v8 K5 _+ B/ v        i,j,Rows,Lines:integer;
" N7 Z# u2 b  D8 m, l& `- H        MachineName,BufName:string;
        Machine,Buf:object;
do
4 a$ Q8 |  E" }        if Number_Of_Machine/=D_From_To_Chart.YDim then
# A/ ^) h5 ?3 H  b- c- i% t                inspect messageBox("Number Wrong...,",50,13)
/ W! Q8 Q( M' J4 H                when 16 then
2 m" T7 I- s4 a- D7 g                        print "Yes";
  I( }9 z* _. Z3 w                when 32 then
6 ~( {- m* B- j! V                        print "No";
                else
" D5 U; P- y$ n  q1 k# k                        print "Cancel";
                end;
- }. U; l$ _  _        EventController.stop;
end;
1 H" l/ H: Y7 J5 rPartsTable.delete;
0 I- B3 o2 {  A: Y% ffor 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
1 D- A5 G5 D4 z0 z+ M5 {, p& m                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
4 ]8 L6 O' u  ~  S+ j                        end;
                else
8 M# q- u8 _1 ^                        if j=i then
                                D_From_To_Chart[j,i]:=0;
; g) v: [  m  q% }                        else
# r; g" f8 Y: `& f2 S                                if D_From_To_Chart[j,i]<=0 then
* z( Q+ J& E6 W( @                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
        next;
next;

end;
3 z* @+ f) x, ?# A# z4 }: e
- |& p9 p$ r: v! B    Lines :=0;
        for i:1 to Number_Of_Machine loop
1 l& U! j% `$ J( }, ?$ [        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 W5 U; K2 g6 T        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
8 n1 d5 }8 A# n  E  Z- Z                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
4 c. q6 R7 w  x- B                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
4 e$ Q1 ]% k6 c                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
! t# V* o5 \! x, [5 k                        PartsTable[3,Lines]:=sprint("Parts");
  ^' ?7 W( E4 k7 F: h! G& q                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
9 a" ]3 {2 c) t        next;
" H0 }6 {6 Y) M* ]" h) B        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]);
- S( c" R8 @7 F: M4 P6 Y/ D        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
0 p. w; K4 J1 R' x$ w        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
- a0 S: J+ i5 N8 v4 ], f! A       
. l8 c  J$ T8 [+ T+ y( ?* c3 l        BufName :=sprint("BF",Rows);
; d( t- [. S& @8 a        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]);
/ X) @& j, p7 A1 h5 g2 t                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
% w3 u$ a0 o" d) k3 w& g        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
; V5 v& }9 j  d( ^+ v% Knext;
2 ^2 ]$ e9 B9 q0 |5 }end;

五五

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

wudi

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