程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
1 [& N) ^' Q; i6 N                when 16 then
$ l6 O9 m* \! i% ]9 Q                        print "Yes";
                when 32 then
) o3 n6 y3 n) p4 F: [$ }                        print "No";
+ T: ]9 |' z# [* a  u! Y                else
9 k+ N# v: K( h# Z- S                        print "Cancel";
                end;
3 n" w7 ^) [1 ]        EventController.stop;
# O0 \2 U( F: ?/ c5 }3 \, z1 Cend;
7 r: R$ u2 Y( vPartsTable.delete;
for i:=1 to Number_Of_Machine loop
2 k- H2 h6 q5 |2 {  M( @' h1 \( e        for j:=1 to Number_Of_Machine loop
8 ?1 g' ~. i! q  x4 ?                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
5 P7 ]& R* R. z% ^2 b                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
- n3 I" ?( q* W" f. c                        end;
                else
, T) v, j2 \* N  `- @, K                        if j=i then
5 j4 \, C$ e7 ~, N3 F' \1 ]9 G                                D_From_To_Chart[j,i]:=0;
8 \& q% F" n7 |, I/ |. p  ~. Z, M3 l                        else
* u  e2 T6 `+ u. \3 a) m; M, ?                                if D_From_To_Chart[j,i]<=0 then
) j+ ~' }" W7 s0 R2 M1 |0 n% \                                        messageBox("distence<=0...,",50,13);
) U) R% |- S( ~8 W* ~                                        EventController.stop;
  D; R1 N6 |; K, `: D2 z                                end;
( y3 s) }8 a. e" ]/ G5 s3 a) `                        end;
& T* X: }$ V# v6 m$ z                end;
. x" m: A% n' Z8 T        next;
9 U1 X' }* h, `" ~- s$ ]2 _6 Wnext;
) \2 L  F  i6 {3 q8 F- d
end;
) p1 t: G0 l" e. Y7 c& w5 _
    Lines :=0;
7 R* B+ V; b3 }5 M3 J$ X$ `) D. z        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
" i) N/ k6 ^! ~+ g) c! U+ T        MachineSequence[2,i]:=Rows;
5 ]7 c  v& s! n: b/ I& ~            for j:1 to Number_Of_Machine loop
6 T1 J5 e. C5 R. v- \! P                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
% K/ K* d8 z. c* c                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
& G" a8 x7 D, v8 F                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
$ |1 q2 \" M! D* E                        PartsTable[6,Lines]:=j;
                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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
2 [' K* K9 o, `6 ^5 {0 |3 u$ y+ x        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
- q& |3 ]) j9 a* q        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]);
, M9 C5 F9 ~7 D9 ?% n6 p                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
: a' O3 X* h3 }. @1 Mend;

五五

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

wudi

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