程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
9 `9 x! l1 [: w! @- T( A        MachineName,BufName:string;
8 {8 Z% k' {* z2 Y        Machine,Buf:object;
# H) x  }& b; t4 r; R8 Vdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
& [9 k. ^2 n/ [/ s# p( y, S                when 16 then
' \2 H) Z; f8 Z  e                        print "Yes";
9 y  Q* Y" m8 y2 ~: b0 w. ^                when 32 then
                        print "No";
                else
8 R& W. e' X) R9 O% D9 |: J  D                        print "Cancel";
                end;
7 c" R9 W( `% k* O! Z8 A  ?4 z        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
( y! C' C2 j1 N                if j<i then
! h" A; D6 w, T* a, w+ L7 F/ D5 u# n                        if D_From_To_Chart[j,i]<=0 then
& d( v( Y  M; g, t" U0 I! q                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
, I) d0 A/ e( A) g% }1 b                        if j=i then
& J  J6 I+ D1 E( ]/ o3 Z0 q                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
; I" ^! d* d; Y2 D# ~, ?4 Z6 P                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
* g' J; w9 e1 h                end;
9 w, i& P; ]1 v+ x& n: i  [' a0 ~# C        next;
next;
: N' y! `+ P6 ~% ]
end;

5 {6 B6 p2 H! W2 f: B    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
; X0 t2 B1 P7 P' ^' t                    if W_From_To_Chart[j,Rows]>0 then
: _5 q! v- ~, c+ H9 E# P$ x" J6 e$ b                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
4 k, ^6 d* j9 x                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
# \9 U& H# C& o& t                        PartsTable[3,Lines]:=sprint("Parts");
$ q% z4 w: C' `) R% Q" T2 ^+ x% k                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
2 l5 D6 V+ K5 u                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]);
- I1 F9 j# n8 M. V, X        Machine.Name :=MachineName;
% }: d& }! [/ R: N& l% C& T! S        Machine.ProcTime :=5;
+ R! Z* Q3 O5 @8 s) U6 t$ [: `  d3 z        Machine.label :=sprint("machine_",Rows);
! j$ j0 n* |0 |; Q        Machine.ExitCtrl :=ref(Leave);
       
- G# I+ b- F" g9 R. T        BufName :=sprint("BF",Rows);
7 H2 n3 @" T, a* `        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;
        Buf.ProcTime :=0;
$ f& O9 i$ D, @( Q# X1 M: I+ j# _        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
& w' v; ?; t( Z. }; I

五五

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

wudi

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