程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
1 d; z% R8 s! N! X# jis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
0 z. S, w4 T8 Z) [  y6 W- o( \        Machine,Buf:object;
2 i9 k" a8 q* _# d# o) Mdo
1 q' \' v. |$ f1 O! ~        if Number_Of_Machine/=D_From_To_Chart.YDim then
5 @7 M! B% V# @! _$ A                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
& M; g7 _; u/ @# P) f                        print "Yes";
                when 32 then
                        print "No";
  `9 @& v  B8 q1 O                else
                        print "Cancel";
' u" w3 p' z1 x# p2 v                end;
$ y1 [  Z. P' J; D- f$ z# @        EventController.stop;
& h% [+ |' }5 N% e4 Dend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
" O: Y% f! _7 _) k0 {                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
, ~1 S4 f  Y% s3 J+ l                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
7 x; k, J) ]* d  p1 n7 [  K: h& Q% L                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
9 n$ F* K  A6 @! S" r, J. D                                        EventController.stop;
                                end;
                        end;
; @. ]% L3 P* {4 }/ l! f                end;
) u" D; I* ~6 O0 _! y        next;
next;

end;

3 t/ `& j) B; f) ?8 T    Lines :=0;
        for i:1 to Number_Of_Machine loop
* z9 W, O5 H0 ?        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
* p, N4 {, b. J: x        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
0 X" r2 K! J) L% f                            Lines :=Lines+1;
. [: F0 v# q: r8 A( h                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
: u- p% C; \# W5 S) V7 K1 O                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
0 ~) }. F! M; x7 V/ ^                        PartsTable[5,Lines]:=Rows;
4 T8 G. E5 O7 Z' W5 n  ?' A                        PartsTable[6,Lines]:=j;
                end;
  ?% f3 N4 X2 r' S- u8 ~( @        next;
        MachineName :=sprint("M",Rows);
# j. _) V0 X% q0 H        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]);
. |4 [+ s# E+ Y$ v/ e        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
  u" P- g8 [9 S6 P. S% e       
        BufName :=sprint("BF",Rows);
9 T2 x$ b5 ]7 T, F& s* L% R6 [8 h- D        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]);
3 \) r0 n9 c8 O& u, G1 @& s, \                 Buf.Name :=BufName;
/ S0 l3 B5 \& z: _  B. m        Buf.Capacity :=5000;
- G; E5 ?5 o' ~) a7 N9 C        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
9 X% }0 m0 w0 `1 Z& A

五五

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

wudi

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