程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
3 }) z6 e$ y# G4 C& u3 @        MachineName,BufName:string;
        Machine,Buf:object;
; ~4 S: x& ]% Udo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
$ r# [$ W2 D4 i  O( |$ L& w) S                inspect messageBox("Number Wrong...,",50,13)
* d5 `% h' q/ j2 s2 }# [                when 16 then
                        print "Yes";
                when 32 then
+ t( U/ L/ y/ X# o% x" g) z6 E                        print "No";
$ @# Z' T7 j9 ?. b/ ~                else
5 ]# B3 O  w1 z4 J; K% _1 @                        print "Cancel";
/ [6 q9 o6 p- s4 {+ m; z: O                end;
        EventController.stop;
0 n, z6 D" c2 s& t6 m6 zend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
# s4 D2 ?2 E  v; e& q% }        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
. ]4 u2 x% U; E- N& S* q( R                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
/ e/ J* L# a1 a% D$ `9 w) B                                D_From_To_Chart[j,i]:=0;
( a4 f$ x7 t0 ^; i8 g6 a: e                        else
                                if D_From_To_Chart[j,i]<=0 then
8 |9 ~! P8 R# _3 ~                                        messageBox("distence<=0...,",50,13);
) d, B$ N/ l* T2 V! y6 o% H                                        EventController.stop;
                                end;
2 U, S. N6 W) X4 m; D* u                        end;
! k1 k; y- r6 ]  u1 S& M* l- j                end;
; e( d( ]0 W0 J) Z        next;
next;

end;
1 o- ^( R$ g( ~4 g7 t+ i1 d) i
. O1 {  M" w9 ]    Lines :=0;
        for i:1 to Number_Of_Machine loop
; U1 A/ @; ^: _        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
$ t& @; s) R" E7 O                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
3 H( z& l5 n7 W2 E, ?1 c5 K$ z$ t                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
3 |9 B1 o! T- n7 Z                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
3 i" P. ~) ~" i7 G" U9 l                end;
        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]);
/ I: W' _7 \/ U& D5 T- v        Machine.Name :=MachineName;
7 A  v- ~( L5 B- o' Y) D. C; t7 Q        Machine.ProcTime :=5;
( r  V* W& L: ~; L' f6 |6 M        Machine.label :=sprint("machine_",Rows);
. R! S# n. ~. v7 W0 ]        Machine.ExitCtrl :=ref(Leave);
       
+ ~/ `2 T- F2 h, O        BufName :=sprint("BF",Rows);
0 q! k" n3 k1 h6 j7 E        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]);
! q# k# Z8 N7 y& s  [( w                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
+ B7 t+ R6 K8 N+ b& P( h& N        .MaterialFlow.Connector.connect(Buf,Machine);
next;
$ g; [0 @4 b1 v9 @) Gend;
$ v5 e) D- X" u

五五

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

wudi

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