程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
) K* u, i; b2 u* q  Z/ Cis
9 f. g( ]9 h) ^& q        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
2 {9 H! a/ N, Gdo
+ f2 R6 O* C/ U, o( M        if Number_Of_Machine/=D_From_To_Chart.YDim then
8 {4 T) k* d% A                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
4 f6 P  ^8 S7 Z2 _0 M4 l                when 32 then
- `! C- h) `; u+ A                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
/ `, @6 K3 q8 a9 o; X        for j:=1 to Number_Of_Machine loop
                if j<i then
/ J, W+ p1 g6 y' H6 z  U                        if D_From_To_Chart[j,i]<=0 then
( y* Z% _0 K* u1 c6 D8 I$ y                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
; o0 Q/ X! q7 m. E# ~                else
4 }% J) o- u6 A5 R( R. z                        if j=i then
                                D_From_To_Chart[j,i]:=0;
1 D7 ~% q8 R4 a: z  S6 B* A                        else
/ @9 _% q- v) T' \                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
+ h' t1 m9 O1 [, v7 m                                        EventController.stop;
$ f# c- u% f1 |                                end;
2 L9 |' k6 P) s! `) ?9 I                        end;
# ~/ Q- H8 H" e3 d7 ?- D1 D9 d                end;
' S& p' t) c7 f        next;
( ]  \$ L4 L, h9 T) f" lnext;

end;
) d" E. Q0 Z+ H$ q
    Lines :=0;
+ A% u) a$ c- Q- v$ c! i* A        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
8 T1 p! D8 l# E( Z  F/ V8 E        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
! \( W/ l# V. A+ I" J" E                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
6 j- ^; D& L8 w8 Q* O0 ^. G                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
; @2 @7 b6 h. o" i* D: {# a! R' i. I        next;
* Y( n2 G9 d* n( Z* p        MachineName :=sprint("M",Rows);
0 M% H1 k, y2 C+ b- x        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;
9 m& ~3 \# D' t2 S        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
' i. s6 ?8 K" O6 a4 v4 g' V        Machine.ExitCtrl :=ref(Leave);
- Q% E* x  u, g/ ~# W       
        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 a& }' }8 @; l0 u! G  B" ]                 Buf.Name :=BufName;
2 l" Y! `- d  x, `$ U; N% l% _        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
8 l; d/ t: R0 x4 Z/ rnext;
end;

五五

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

wudi

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