程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
3 x; F' m$ T: W2 z, k4 c* Yis
6 P/ e7 p: j$ N* y        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
% w; _) t$ G- U/ ?0 Z& W        Machine,Buf:object;
( |6 x3 `9 f/ ~/ R9 a4 udo
- U- E- j7 y. h* w0 Z        if Number_Of_Machine/=D_From_To_Chart.YDim then
2 \7 g  L' i5 G8 v                inspect messageBox("Number Wrong...,",50,13)
  e: R6 x2 \/ @" O9 V                when 16 then
                        print "Yes";
" i; I8 ^/ ]9 {( E9 }                when 32 then
! k' J) T: h8 f( M& D                        print "No";
) e/ j$ o  O8 P" Y& Z) I1 h                else
" _! p8 n& X; N) f& m/ K6 ?                        print "Cancel";
* r$ I5 @' _, S; P5 m                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
2 w( O- m4 [5 R+ ~1 a        for j:=1 to Number_Of_Machine loop
8 k, N3 s; ?! j% u' |5 [& v                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
& d/ H+ a4 ?# j                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
$ m! c* ~/ U9 Y" q3 B  ~                        else
8 h6 J" x4 |4 ~! q, _                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
( g* n5 i" |' q/ B4 b# Z                                        EventController.stop;
                                end;
                        end;
$ |( `6 s, l2 O& ?                end;
) V- m  Y, O# }7 D/ g/ L- _) A3 A        next;
3 e. j1 t: `% r( Vnext;
& `  Y0 |+ l& y1 H# \
end;
' v, z+ g$ s" S# N5 {9 e; K
& ~) K4 N7 e% g2 L# z    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
0 D: a6 x6 m  K4 R& O* A        MachineSequence[2,i]:=Rows;
) w  n* H* r7 Y& m: L% Q' W( ?3 |            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
- m2 V" s, x  C$ |* @! x6 R4 `: b                            Lines :=Lines+1;
- A; @% W8 J, f) I                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
- D6 y  V; |; `, w& S8 J+ \                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
' a# l3 N$ h9 Q, v* f+ f                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
$ |, @) d# g" F: R1 F        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;
- B, X3 w. q( _9 L        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
- h' O8 x( w+ f6 i+ ~6 N2 t       
        BufName :=sprint("BF",Rows);
9 |3 U" f; R( N& A  }3 L        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]);
1 ?+ M) e7 |; v2 d$ m% c- d                 Buf.Name :=BufName;
& f/ ?, G  u) z. n( n2 |        Buf.Capacity :=5000;
+ `1 M* \+ l4 C. j/ C; m* S6 |        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
2 f* D" D/ o7 L$ v! e) c6 O4 dnext;
end;

五五

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

wudi

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