程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
- h6 E: s. F7 u6 y( e! Y+ P1 eis
6 l9 ]+ [/ m$ R( d        i,j,Rows,Lines:integer;
1 {6 J) Z" ]3 c; j        MachineName,BufName:string;
        Machine,Buf:object;
$ L) b0 ~# O3 G) K# R2 ddo
( f/ ^# _3 u. u% N1 X        if Number_Of_Machine/=D_From_To_Chart.YDim then
' W7 _- Y* x1 n                inspect messageBox("Number Wrong...,",50,13)
0 u2 x6 N8 T& T2 i: M                when 16 then
: `6 Q) ?) W% E, v. x+ Y6 k                        print "Yes";
2 X3 k# j8 \4 Q" y- {                when 32 then
                        print "No";
: T) M5 J; l; k2 G  @9 V- s" V                else
                        print "Cancel";
+ G1 \0 P+ J6 ^, {) {                end;
        EventController.stop;
end;
/ C/ p% y. W- wPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
: x7 E5 b' \) j                if j<i then
9 N: i+ k( y" n  l9 K7 R2 K                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
6 G' P) F2 _8 m; O5 ]                        end;
                else
                        if j=i then
% p2 f! w9 a7 m  J/ ?3 d& n                                D_From_To_Chart[j,i]:=0;
                        else
0 B5 P: j- z9 {! l, @5 e. s: j                                if D_From_To_Chart[j,i]<=0 then
* C  y. t' c- f) ~" }/ ?                                        messageBox("distence<=0...,",50,13);
0 h6 i  x7 ^8 h  Q                                        EventController.stop;
) [& p7 o0 `% I- c& e                                end;
# z1 N3 G- M! P/ l& I; V& r                        end;
                end;
9 ?/ F! Z/ q6 Z3 A' J  M        next;
next;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
$ F* w* X) Y% F; R5 T7 I        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
! ]7 Z) \2 H0 \/ h  i* ~; ]5 }        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
( k$ O* t# A* C2 k- k1 @  M                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
8 k) Y* z/ h3 L# e& h                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
6 Y" O" n+ q2 S% ^& M                        PartsTable[5,Lines]:=Rows;
( |# G1 C7 `- p& D4 ^* l: W                        PartsTable[6,Lines]:=j;
$ }' R, Y3 P, Y+ K4 I8 W: M                end;
5 Q2 }$ x! H' k3 A        next;
        MachineName :=sprint("M",Rows);
& e; B6 K/ g8 k' B8 u3 v" T3 @5 O        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;
        Machine.ProcTime :=5;
( Z; \+ D# F$ x5 o. K        Machine.label :=sprint("machine_",Rows);
* ]8 K' p0 M  E* o: x5 c. r4 S        Machine.ExitCtrl :=ref(Leave);
, q3 _( D: |- s7 {       
        BufName :=sprint("BF",Rows);
2 R- l6 `- h0 b8 E6 ?0 Q5 ?        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]);
                Buf.Name :=BufName;
3 L2 E# H) k+ t% z0 |2 t        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
6 N! t' v  G4 I- p* s7 O5 q        .MaterialFlow.Connector.connect(Buf,Machine);
next;
) n, b$ \8 X% s: N0 X! ?3 Jend;

五五

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

wudi

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