程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
6 z0 O  d; ?) l* \+ ?- q* L3 [* kis
# ]; O! d& C6 q- Q7 p& B. [        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
8 T$ y; V4 C5 l        Machine,Buf:object;
do
6 _) a( h# m+ z# o1 I        if Number_Of_Machine/=D_From_To_Chart.YDim then
, h# c8 }6 L5 ]% {" M$ a                inspect messageBox("Number Wrong...,",50,13)
" ~7 J( E& V# w8 o                when 16 then
                        print "Yes";
" ]2 A; c# `6 L3 w8 x3 q                when 32 then
                        print "No";
+ J* F8 q( b3 D# b0 O                else
                        print "Cancel";
                end;
: ]: i4 z! Y* f6 L" f3 a- ]0 m        EventController.stop;
7 Z$ U" U; A9 N* Aend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
4 w4 b2 `  X" C( N        for j:=1 to Number_Of_Machine loop
4 Q0 z# g  m9 J$ B; d) R) A                if j<i then
. ]  ?  H) a- w# i5 v                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
( t4 N+ ]& U  B9 C& Z, E, H5 L3 z                else
                        if j=i then
# P* h6 W& y0 t; V# O' c                                D_From_To_Chart[j,i]:=0;
                        else
9 Y/ f$ ^1 V+ _8 ~$ R                                if D_From_To_Chart[j,i]<=0 then
1 f; n. }" I/ t" c, w& Y/ V8 ]                                        messageBox("distence<=0...,",50,13);
8 W8 _2 W2 K, `                                        EventController.stop;
3 v: p; Q; U; X7 ^. g( ^                                end;
                        end;
                end;
, y& v/ T( |6 J$ ?6 y; k        next;
  X3 I6 O9 v1 fnext;
$ Z! c: Z& x2 T$ v) k+ n2 J
end;
, f6 x3 W" Q- ]' j% Y) d% g- ]( s
$ [/ M# \5 ~2 j& i    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
8 E* I4 N( a* h" f8 Y            for j:1 to Number_Of_Machine loop
* p! A4 B; E7 R" }) @                    if W_From_To_Chart[j,Rows]>0 then
& s: P, }% k- ~& h                            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");
! O9 i% N; \) f; p; G! H4 G4 x                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
; i- r" N- f2 W9 l3 d$ A6 U        next;
* b/ |8 l4 Z2 A, `4 ~& U3 }8 e0 k        MachineName :=sprint("M",Rows);
1 x2 c) H1 ]) U4 V- t9 |        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;
2 W7 S  s; R: s# V        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
1 d" ?9 Z- @3 _# k! p$ S  O       
2 G) I0 [0 ?! Q& d6 y- T/ q# j        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;
        Buf.Capacity :=5000;
: D; B  W1 K7 ~- c) @& C        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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