程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
: O( G$ }/ W" Nis
& P8 ^- d" q" g  |        i,j,Rows,Lines:integer;
0 _0 g$ x* C7 C; d        MachineName,BufName:string;
: k8 ~  x  T$ @; o        Machine,Buf:object;
1 Y* L7 w5 M5 r$ Q# \/ e3 t2 _: x2 Ado
( a# U: N6 C  C: ]7 Y0 R* c+ T5 y        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
+ B, i4 x/ \' J: W9 n" x# z- X# V                when 16 then
                        print "Yes";
5 B  n/ E7 B1 `: j% S                when 32 then
                        print "No";
* ~7 h/ Z$ C; v5 T1 m' X; h  x- M                else
                        print "Cancel";
                end;
  H: O1 [7 q. n! c* z        EventController.stop;
end;
% y% }$ M; F& A/ Y) HPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
7 B) d8 {, S' y& W                        if D_From_To_Chart[j,i]<=0 then
. o) [5 G2 w0 l' A5 M8 z                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
+ ^0 {) S# f+ _/ b! f                        end;
                else
4 `/ Q. l; Q; p( f, E+ s) n3 G# z# B                        if j=i then
0 h% I1 v! {/ u$ O* S                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
- p$ t0 w7 M- u7 \9 v$ s                                end;
0 s3 n( _1 }3 x9 D/ t" P                        end;
                end;
        next;
next;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
% D) E- R# J: X        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
                            Lines :=Lines+1;
5 }+ v  F0 S) }# C( i                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
9 Z3 ^+ G% P4 }$ W) }5 y* Y                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
9 ]- c* }+ H$ r$ R+ |: l                end;
        next;
        MachineName :=sprint("M",Rows);
0 s$ E) f! B* o4 l8 n  a. u6 r        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;
        Machine.label :=sprint("machine_",Rows);
; F7 t" V4 [6 m' q6 o: o8 Q4 i        Machine.ExitCtrl :=ref(Leave);
1 G& b- m* J! p       
! m  X$ y+ f2 d3 ]$ ~# g0 `        BufName :=sprint("BF",Rows);
; E% H3 T# L! D6 E" O        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 L, ?. I: ?0 n: L8 ~+ l1 m        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
8 T: h3 f! V% Q6 i; z* k        .MaterialFlow.Connector.connect(Buf,Machine);
' N0 [$ a, G3 p, J6 Pnext;
end;
5 w8 e( M5 H3 w0 H$ I

五五

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

wudi

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