程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
1 {! b" L( h* a/ vis
, p3 y5 M" c6 D* n$ l        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
; m, Q5 G, f( g6 ^8 e5 V0 u; P5 U        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
8 q# B: |2 w8 e/ f5 _- e                inspect messageBox("Number Wrong...,",50,13)
  m8 I* z! w- ?& y5 D                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
) a( ^9 @8 H' H- n/ ]' y                        print "Cancel";
& C4 D: L/ W! \5 j0 L                end;
        EventController.stop;
! z2 b1 c/ K  N+ x  g4 f% U$ P3 ?/ ^. s! Qend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
' b; O6 U* a# \- [8 f9 ~# J/ k                if j<i then
3 a# l! u5 D" N' Z+ L2 E                        if D_From_To_Chart[j,i]<=0 then
6 P3 p9 D6 U3 M* a' {, H                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
; F1 T. L: A* w. h7 j; K; `$ {                        end;
  ]% E: T' l; K. }, E# L                else
3 x4 @1 S" A/ J+ R                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
9 {1 @0 g6 U$ a, r. }: n: z                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
6 Q, I0 p% q9 q) n                                end;
; v/ G, O5 _5 L- B                        end;
                end;
* i( I9 @/ q; z# |5 s1 |) T! H        next;
next;

* x: Y- j/ h9 D( A- y+ \) K1 Eend;

( C( F8 M! t1 \5 K( ~5 K) Q6 V    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 S% u7 F# v+ h7 y6 a; u        MachineSequence[2,i]:=Rows;
' q  I' A( ~) \' z            for j:1 to Number_Of_Machine loop
7 }9 C: T6 M  p8 s: R                    if W_From_To_Chart[j,Rows]>0 then
/ \- E, J. `. e' d3 T; {/ d5 u                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
1 t% h$ N! z4 a& N! Y* B/ [                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
5 l4 m9 }4 p2 _( Y9 e                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
  V( B0 `: \8 n5 p  L3 G2 ~  W        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]);
3 |! G  q- t+ ~        Machine.Name :=MachineName;
3 e( ^2 g3 E( j* ^* B5 y5 M        Machine.ProcTime :=5;
. }% R9 e0 \! ]" j2 ^8 d; H        Machine.label :=sprint("machine_",Rows);
3 ^) O1 U: e* s5 r6 G. t* z( K        Machine.ExitCtrl :=ref(Leave);
$ g* y. m# O9 w0 r, n       
        BufName :=sprint("BF",Rows);
        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;
! s$ l7 \$ m: T& k/ }        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
. E4 w' b  M5 J4 ~& }: j

五五

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

wudi

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