程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
: O! n3 [9 v6 z2 C" ~8 V* H        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
9 o1 Y1 h" V1 c1 {        Machine,Buf:object;
4 y2 t* s5 V8 f) [8 y) R3 hdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
; Q- J* E4 j0 c                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
) N+ n& C" B& b/ B# w+ \5 G                        print "Cancel";
8 t$ e/ h8 A* i4 [  a                end;
        EventController.stop;
end;
5 r( G- U  T# e2 ~PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
: @2 A. a% J' @+ t- V8 ~# e                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
( s# o' r$ P( [                                D_From_To_Chart[j,i]:=0;
                        else
2 j. ~( U0 q  j$ u7 C0 U) o                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
7 q  q% Y/ b5 u7 M6 a' B8 d                                        EventController.stop;
2 y& U* b# U2 n8 C( e: A: ~                                end;
* ?8 b6 K- P, l) l1 r2 D* }, G1 U& Y                        end;
                end;
$ ?: k) O; y: y6 h0 C& i2 V        next;
next;
( q3 N& d+ i/ o+ ~) r- {+ Y
+ y' @* f, D2 q7 W+ I# Kend;
  ]7 P. f+ \6 _# h
) O! w- i* D# h5 {3 l; c2 t    Lines :=0;
        for i:1 to Number_Of_Machine loop
1 L. q6 \6 u; d* x9 q; s        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
# k2 f& `% M9 V  F6 X6 L7 |5 w        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
: f% s& e0 g5 U/ m; H                    if W_From_To_Chart[j,Rows]>0 then
# c; O. T3 S) a( S" G+ z5 J7 a6 a+ G                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
0 p( h- N) @$ D3 T1 j: d0 H2 B                        PartsTable[5,Lines]:=Rows;
1 t# I+ U, q9 ?0 n2 D1 R                        PartsTable[6,Lines]:=j;
% w+ I6 C* R, T* y+ }                end;
1 _3 u7 c/ D( ^, o- M) G        next;
. p. N/ }" I1 d% j8 M6 M        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]);
' K. K& U0 g6 w8 e2 M7 V& @+ a' ~        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
/ P8 J6 `9 H7 f3 j- J' O2 X        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]);
- i- e0 h5 D- d$ {. ?; S                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
% W2 V* J8 R$ j8 Y' W) k; E

五五

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

wudi

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