程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; P& A1 d) Y+ c! D" r9 bis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
8 c7 Y0 U: w1 Q: ^% T; }do
- a- m& Q/ g. B% }) V- ~; q) x        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
3 p) [  B1 I2 q                when 16 then
                        print "Yes";
, t4 Z  r$ t2 f) G+ v( V                when 32 then
                        print "No";
                else
; t3 y1 l- f0 c, `. i( m                        print "Cancel";
$ Y6 R& {4 L- u" V) s, N                end;
) j8 a  H& o3 V7 I& A7 f& d        EventController.stop;
' G% C9 ~4 h# W) N6 ]5 iend;
0 _8 u6 q6 d4 M' _' T" SPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
6 _; X6 ?* u" Z# Z                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];
                        end;
! n+ `2 j' C2 v( U( e$ L                else
                        if j=i then
2 x6 U. M% H) |                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
) q1 h: B  s/ k# ]- m                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
/ t, f  y4 N* K' i9 i; G                                end;
                        end;
                end;
        next;
+ L7 a* b! ^# a9 \! enext;
0 ?8 ?# g+ R; a( w( w1 N* g( q
) R6 W9 i5 D  X6 Mend;
/ O& ^+ f1 T9 O/ ?' b: ]) F
    Lines :=0;
' h/ p  C, y# `) _4 i6 G        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
/ }9 w; X, t; C/ i* a# j# Y% `        MachineSequence[2,i]:=Rows;
+ ~1 V( _% U2 F$ N' Q            for j:1 to Number_Of_Machine loop
3 r: b6 j; j* Z                    if W_From_To_Chart[j,Rows]>0 then
# J  u1 R- f% \. M                            Lines :=Lines+1;
, W# h- H) C: L8 F  }) ]2 F                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
% e% p+ U; W1 o  D* d                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
8 N+ K" g; e. Y. y0 t- P! R                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
* R$ B; K  O, f        MachineName :=sprint("M",Rows);
! u! H/ d3 q* v: R$ z- L- T9 K3 ?  ?        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;
$ n; t# K5 U7 z7 f$ E        Machine.ProcTime :=5;
  q- F: F% _6 P% e0 [$ P3 D" `0 z        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
/ _1 `" x2 [# Y1 l; S1 r+ H& {/ ?  M1 C        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]);
2 U" I4 n/ J4 \2 ?. ?) ]. O. G8 W                 Buf.Name :=BufName;
6 @* _. c, v+ ]9 U7 ^( s! Z$ N' p        Buf.Capacity :=5000;
+ N! z5 G6 C6 b        Buf.ProcTime :=0;
3 h8 {% b4 N# A! R8 f+ m        .MaterialFlow.Connector.connect(Buf,Machine);
* [) W) m, Y) v7 B* znext;
! d( C: y$ \4 N, bend;

五五

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

wudi

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