程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
4 ?8 R( f4 y/ {is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
9 `+ }% b. Y6 k5 w. u4 xdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
7 z! I. d) D, n' _: O. f$ z                when 16 then
" {9 J% }$ A% \9 X                        print "Yes";
                when 32 then
                        print "No";
8 \% Y5 ]4 w! e3 g9 L) Z3 w                else
                        print "Cancel";
                end;
        EventController.stop;
& f8 D" P0 [7 n. ^8 ~) W4 v8 Fend;
% d& j- e$ p3 D1 A5 l7 tPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
4 d% ?$ r% z# f; L                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;
7 f2 `5 s. T. N. y* ~                else
- d! Z+ {/ b+ R" ?% A/ D! K                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
7 g9 J6 R: ^1 ]9 {, C- T$ y3 \                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
# ?. ]$ N9 W4 r, s2 s                                        EventController.stop;
                                end;
                        end;
/ ^4 a4 s( d# B% ~7 \2 X* a                end;
- ~9 Q: `, h8 H0 K& Q) y        next;
next;
4 \2 s2 b" P" o2 |3 @$ f8 X$ s
end;
" ?) @4 X" S' a9 g( v: j0 V, M
& v0 i1 z$ v0 h$ a: F( v; k$ i    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
& r  {4 ^3 t4 [7 j            for j:1 to Number_Of_Machine loop
- k: ^& V4 z8 E% {+ w2 I                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
0 S' E# J4 Q( h, i  S* i; |                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
; v6 I( o/ c+ U                        PartsTable[5,Lines]:=Rows;
/ n5 c$ G9 T! p& x0 b                        PartsTable[6,Lines]:=j;
                end;
) z4 V: r5 I' q9 I& S        next;
        MachineName :=sprint("M",Rows);
6 Q+ m* P3 f  G) t/ I. z        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;
- Z  ~$ d, j7 w- a. a1 E        Machine.ProcTime :=5;
, B6 u3 f+ p( p5 d# N# l        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
* x* G4 n3 `( B7 `        BufName :=sprint("BF",Rows);
        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;
4 g6 I0 i5 _+ J% g9 |# z        Buf.Capacity :=5000;
6 s1 [- |7 ~$ j# G        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
" l; Q: i. A: L( O# ^/ a2 Lend;
0 r  Q3 y% t: h+ y1 M

五五

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

wudi

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