程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
9 i4 \" Q4 \% D8 ~/ fis
9 p; I& }4 ~2 v        i,j,Rows,Lines:integer;
" A- O+ o; W: y0 ?7 s, ^. H3 k, e        MachineName,BufName:string;
        Machine,Buf:object;
do
. m+ d1 j0 s& y( W/ z, X$ J" S        if Number_Of_Machine/=D_From_To_Chart.YDim then
* f4 d# Z, q6 M$ a. r' b" }                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
% Q4 M5 d0 `3 v3 u  P                else
                        print "Cancel";
- i  U& E  c. x# j/ o  q" F                end;
        EventController.stop;
end;
PartsTable.delete;
5 J) h% g9 T2 M" h6 I, g- r0 Pfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
4 F& \) k& F  W* ~6 x8 @                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
8 e  P4 ^& Y# p% `' J                else
3 Q' s, v; e  Y' @, U                        if j=i then
& y/ D3 _( E; P" d1 c5 B: a9 O+ z3 }) e  t                                D_From_To_Chart[j,i]:=0;
, y, W! F. G$ {7 I1 P# A) Y$ e                        else
                                if D_From_To_Chart[j,i]<=0 then
$ q* K' k& a6 f3 I3 ~7 b/ Z# L                                        messageBox("distence<=0...,",50,13);
& E2 E) {" ~: t& M/ T$ i9 ~7 V                                        EventController.stop;
2 u1 @. ]( ~- V' V  Q                                end;
5 O" E; \- g. \; i                        end;
                end;
: T* c' |* v& r        next;
; ~6 j, u$ T% Z& w% ~next;
( o; H. Z; N1 S9 i% u! B
+ G% h2 {) N  d3 F( Dend;
% O0 @2 v/ S& D* ], ]# i  q. P
    Lines :=0;
) \+ J) Y  H* F; Y7 _! f1 r        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
! |' D& p( F1 ^( Y, o        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
- W. Q$ E' j" j, Q, ]7 i1 {* h                            Lines :=Lines+1;
) [5 R) D: R  ?* Z* Q                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
! m- F& M% d3 Z" H5 q                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
4 p0 R4 }/ [5 g! f                end;
6 {5 H: n( a6 y3 I0 \" R* ]        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]);
( L/ O8 z/ v5 c4 S8 K6 H        Machine.Name :=MachineName;
, D1 J& Q; h8 O1 i        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
! N  Y+ E, U5 F0 U        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]);
9 N$ `* u: E, H9 Z                 Buf.Name :=BufName;
% ?$ Y+ r5 q, A4 K        Buf.Capacity :=5000;
$ _2 N* v: ]) n        Buf.ProcTime :=0;
/ I: R9 q' X, h7 Q        .MaterialFlow.Connector.connect(Buf,Machine);
* \5 b, G! _) Nnext;
8 \+ P% \3 c7 D$ n" o$ Gend;

五五

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

wudi

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