程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
6 A3 U4 G7 _% mis
- A5 k" a6 V  {3 }. B6 l3 b' r        i,j,Rows,Lines:integer;
+ p/ K) V/ u, P- L  c4 a6 v        MachineName,BufName:string;
8 {+ }2 }9 K- }2 q8 h$ e1 B        Machine,Buf:object;
; F8 O7 @1 F2 a& pdo
, e; ~) h' D4 |$ r        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
; p8 o8 y; T* A6 L                        print "Yes";
9 p2 `) T% |1 }/ I                when 32 then
+ L1 x) o/ W* j2 X  q& y                        print "No";
$ P- A7 F* t  v5 U" A                else
6 V! g0 f: z: y6 A                        print "Cancel";
                end;
        EventController.stop;
end;
3 L" I" Z1 Z& `$ N- Z: R$ G* FPartsTable.delete;
8 E. Q, a' y3 `& Gfor i:=1 to Number_Of_Machine loop
) @2 `2 z+ M7 [, M. M1 h; s# }, r        for j:=1 to Number_Of_Machine loop
$ k! z" U( F7 L  J& K) U& u/ ]2 \                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
6 {* O4 t$ s; k, Q- U% J                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
8 N2 J' ~! H1 `/ o                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
6 |& `) P& Z! H! t                                        EventController.stop;
                                end;
                        end;
5 w! z9 O. j' [1 f! M                end;
        next;
, G% o6 c- C4 c* f, Q& hnext;
1 D* I1 F0 i  o4 _6 T0 |% x
$ u; K1 {) x3 K& [- pend;
, X* J* }% S; F8 j5 L' f& \; Y
    Lines :=0;
0 ~8 s2 p) V4 b% p4 k6 `! f        for i:1 to Number_Of_Machine loop
, y' t8 ?5 O$ h* G2 U! w        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
: `/ M# `# a% K, j            for j:1 to Number_Of_Machine loop
9 W) W  _3 U' v% f7 e! G                    if W_From_To_Chart[j,Rows]>0 then
                            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");
+ _  S, [1 \; g: _2 B$ }! D. D                        PartsTable[5,Lines]:=Rows;
8 t  S7 O! c3 C; t0 _                        PartsTable[6,Lines]:=j;
                end;
        next;
9 K! K7 _  T+ ]# z  [$ e        MachineName :=sprint("M",Rows);
/ O; s6 }' e  y( B. i* M6 n        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;
. {" E  @  z5 M: l        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
. \4 }0 }5 q1 X- E) X: x       
! [( p* b6 N8 j/ i        BufName :=sprint("BF",Rows);
5 D0 g3 `9 h. y5 o/ w4 ~+ 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;
! A/ V. \& }8 s" E0 L* d        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
  C8 r# O3 G* j& n! R8 `. _1 D        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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