程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
) l. t: m$ b; X  Vis
2 T0 o- R7 B) D        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
* l4 D) E- ?2 r- C. K  i- [        Machine,Buf:object;
do
$ m7 e7 S9 w9 f, ~        if Number_Of_Machine/=D_From_To_Chart.YDim then
# h8 w0 M) e, f$ P) ^                inspect messageBox("Number Wrong...,",50,13)
( S3 P5 i/ K4 W! q7 r9 T1 h) O                when 16 then
                        print "Yes";
                when 32 then
6 b. M7 ?) w" i5 ?& y6 \                        print "No";
* F8 j; v- ^8 w! z* Z$ a+ [6 J                else
. q& [7 t( [1 S, j* S0 ^1 S                        print "Cancel";
                end;
) h% r$ t$ E$ Q1 d8 X! ~. S# O5 b        EventController.stop;
end;
: n# t6 {8 k& }7 K! `PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
  c' G2 l. }% z2 d                if j<i then
, f# u1 V' ?8 o! J7 w& {/ V                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
& |' q. x6 ^0 S+ C                        end;
                else
" y* x4 F( B  T. \6 Y  r9 f                        if j=i then
, a" `+ b& A8 c                                D_From_To_Chart[j,i]:=0;
+ O  h5 K" Z+ U                        else
' T  o+ Z5 `% [4 n$ Q) f                                if D_From_To_Chart[j,i]<=0 then
- J4 r1 I0 r- Z( Q% Y" Z& G                                        messageBox("distence<=0...,",50,13);
( D) X: g- W% l8 N% ^) r5 u                                        EventController.stop;
. L+ |4 \( L) K; |5 ^* I: j1 D                                end;
                        end;
2 L! u2 z5 a( r& o4 d; R                end;
3 {  h# [2 }) z* M  z& L9 g        next;
( p  P; X4 q$ B! v) u' H/ ?' dnext;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
& k5 J9 `% T  {+ ?$ Z        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
1 S3 e8 g0 Z+ p5 J) @# h        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
! D) }8 y1 n/ P8 w! }9 w2 M* A( ^                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
1 y  [; S7 {+ w                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
4 v" F9 P* q0 h* f0 N; @# a                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
  Y& Z4 ^# v/ V& T0 _                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
8 g1 M/ }8 p3 @6 g        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;
; R! \2 F( q, c! G/ V. S# p" e        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
. _, a' i* W. O# H3 L2 F        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;
        Buf.Capacity :=5000;
3 S) U) I) c0 f# D  ]        Buf.ProcTime :=0;
# _0 A1 T4 c8 K7 Y5 i6 R        .MaterialFlow.Connector.connect(Buf,Machine);
' N# q1 ~0 B% i/ K1 f" p( |next;
end;

五五

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

wudi

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