程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
3 X) l$ a- Q  V- T  o' P6 Ois
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
9 ]8 b0 J7 h  R: |        Machine,Buf:object;
1 t/ i# V& j) x9 n6 jdo
) Y+ f8 R4 e' c* K9 C7 }2 J        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
& t, W% h2 O2 j" v6 P                when 16 then
8 S4 Z* I% j  w% \                        print "Yes";
                when 32 then
" ?$ w# j& }4 }                        print "No";
                else
                        print "Cancel";
) o; @! D1 X* x  S                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
& k. j) w. S4 [+ ?                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
6 N' f0 C: L) f0 J2 ]& t% h                                if D_From_To_Chart[j,i]<=0 then
$ l9 v6 o1 l8 _5 }                                        messageBox("distence<=0...,",50,13);
7 M4 z1 q1 T& p) |1 ~                                        EventController.stop;
                                end;
                        end;
                end;
        next;
6 N% Z/ ?1 m5 J' h5 r# U+ g9 o9 O2 Unext;

end;
/ W7 j; ]0 h8 F5 @" {, y# c! I. A
% w, \$ `3 }3 T0 i- D    Lines :=0;
        for i:1 to Number_Of_Machine loop
# o) ?8 [4 y* u& @        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
* `+ n7 {3 V. X9 Z6 f* p+ |8 Q0 p8 T                            Lines :=Lines+1;
: \3 ]; T: b- k" V                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
# J9 U$ V$ m/ F$ S% Z6 W                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
: L6 x: [5 S* p                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
( A1 ], q9 G0 h3 L# 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]);
% ?& g+ M, p/ u2 ~$ }0 G% C        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
/ Y5 m+ b% L: I5 \) o        Machine.label :=sprint("machine_",Rows);
! G6 A5 x" d! n        Machine.ExitCtrl :=ref(Leave);
       
5 u% `5 C' u( |        BufName :=sprint("BF",Rows);
. v  Q- \9 l; a5 }# `/ {        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 W9 B2 C$ |: T7 X2 {                 Buf.Name :=BufName;
4 E+ D- B+ v- R        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
. I# ]% o4 s+ w- N2 Cnext;
end;

五五

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

wudi

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