程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
+ u4 D: G* S! r0 ^; h5 lis
# d7 Q) |. q' y* X+ ^0 \        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
5 g6 @2 r5 m4 {                inspect messageBox("Number Wrong...,",50,13)
$ U- c& u; I6 m' Q# p                when 16 then
( T) d4 b2 l  E: S                        print "Yes";
                when 32 then
                        print "No";
                else
* H. {2 K2 ^+ T+ K/ t8 G5 G: _                        print "Cancel";
+ o* q. U. ?) G$ I* _& V, f0 j) E                end;
) c- V7 o* x% _5 f; e: g; _' h. x8 h        EventController.stop;
end;
: }0 Z. t+ v- L! [+ n  f* CPartsTable.delete;
' D$ u1 Z: V/ ?! ~. ]* L, b3 H  Kfor 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
, f. e! O3 Y' h$ g7 c$ [$ U                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
5 j# P+ m) t* g/ i9 I5 b+ u9 O                        end;
. S2 f. F, V0 ]; F) e* c                else
                        if j=i then
6 d0 A  x4 r7 E8 Y! A! Q4 m                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
$ E/ b9 V& v% P) w/ F                                        EventController.stop;
( {5 n7 X; M- W) S: A7 [! z                                end;
                        end;
, \: H6 d& l, Z( ?                end;
        next;
next;

# H' ~: B1 d! n+ c( Kend;
4 P3 f2 E: f: _1 \. J
    Lines :=0;
        for i:1 to Number_Of_Machine loop
( E4 u( ?: D% u5 T        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
' P0 O5 v+ P# T& |8 p                            Lines :=Lines+1;
9 h% i* O$ p7 t/ ?                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
8 [& C1 _# I* \/ t( y, ]$ ~* D0 @                        PartsTable[3,Lines]:=sprint("Parts");
" a2 e# d5 m0 J- Z- u+ C4 H                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
& ]" a! q% z/ H! c( `+ t: [                end;
        next;
+ Q, [6 @( T5 O2 O% u8 U7 P        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]);
        Machine.Name :=MachineName;
$ n# G9 F$ m* S" c        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
1 c) x0 V. r3 A# g+ d        Machine.ExitCtrl :=ref(Leave);
       
2 j9 w& f$ j( {$ H' w        BufName :=sprint("BF",Rows);
' c# p! z0 J5 f9 ^1 R% y" W. I5 i        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;
/ Z' E) r. H; u- {8 E" B. O        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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