程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
8 T" J" D# i. T- k$ E( S0 Nis
- v' Y1 Z, n# I: u3 O+ J8 v        i,j,Rows,Lines:integer;
# D7 K3 d) T# Z, I# W4 i0 c        MachineName,BufName:string;
# t5 O' F2 h" j% p  t0 {- Z# ^; X        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
4 t) g! z6 I) ?- c8 ]                inspect messageBox("Number Wrong...,",50,13)
* }  K7 z7 G* [                when 16 then
* K( P7 ~: e9 N4 S; K! ~8 r( G% M; Y                        print "Yes";
4 b" h. g: z# E- R                when 32 then
0 y0 f9 _5 E+ h9 k1 b6 n- c                        print "No";
  o8 C3 h% V, U2 @                else
                        print "Cancel";
% J2 }; q4 Y9 J% U* [: m* [                end;
+ o& X5 Q6 D" C& x! E+ P# B        EventController.stop;
end;
PartsTable.delete;
0 I; a# M8 e; z' e$ c# t+ Efor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                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];
9 x' A- X; S! O3 I, b                        end;
                else
7 M) b9 G! f$ q0 _$ K: n4 L1 y  O4 ^                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
% |2 I' v  F% g5 ~  j                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
" F1 u" x  d/ z: p1 \) n                                        EventController.stop;
  ^- Z7 ?! \4 `                                end;
" l7 |( C. O* [1 g1 T* }: ~6 [3 }  ~                        end;
2 S: @' C8 A' _5 }& q! G' Y5 U6 u                end;
3 y4 ^7 H, n' ]        next;
# N0 l- s/ o7 I, t- inext;
# e+ G( l* l2 R* E" i6 q( ?# Q
end;
) p3 N& R+ U. o$ u' B) A) u
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        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;
$ r$ `6 i. B5 t6 |0 c                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
7 S. X: b& f+ }7 b. [: z7 z                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
- j% m+ v; s. v                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        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]);
. B0 F/ {2 l" R$ c        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
" p- _, D7 R4 @4 G$ k! _3 A. }$ E- O        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
8 G: [% h+ b1 i  F+ Q6 I  c$ Y% x" o       
; E0 F* ^( A( C2 e        BufName :=sprint("BF",Rows);
6 [9 V% b  e/ i% T, k. K        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;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
; |9 z- C& x! k5 Y% ?. z: o# o: n

五五

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

wudi

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