程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
# n2 J+ |2 M. Y        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
0 W$ y2 i# I+ F* t) A7 T( U( |        Machine,Buf:object;
do
3 ]# c: i& p5 i/ |) l8 S+ N        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
# r  D6 U/ v! q- P5 D# v- C- G                        print "Yes";
& \3 _3 ?. U/ L( p3 W                when 32 then
                        print "No";
                else
9 s7 D) U2 L3 k3 y& w* g0 P                        print "Cancel";
                end;
2 ]' g$ J; e5 n& ?7 \        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
% S; x& b0 Q. o) f                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];
9 e; d& q& n3 w' q& D/ \) v                        end;
                else
4 W3 v( ]4 }9 p' e5 h" `3 o                        if j=i then
* ~* y) N5 }, `" X- T! E, [; \0 N                                D_From_To_Chart[j,i]:=0;
                        else
" x. ]; Q: }& Y/ _; g" v                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
        next;
next;
; _' Q. q: @4 L) _3 r& k% \8 @* X
end;
* o0 a; }( B( \5 F5 S: g6 Y
, o; Q2 X2 {& \" P+ e2 ^    Lines :=0;
+ Y; }( s. b5 c8 B7 H        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
1 ~; {  `& R$ }        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
1 ?$ J7 Q8 ?9 S* w! E$ o                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
$ l2 Y7 t- @4 N                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
) ~3 y  n2 Y" R' {; H3 x/ m                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
# H- H; v6 J1 k                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
) u. L- n# g3 T        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;
1 u: K" K. Y) j4 u        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
# |; M; h$ P6 z        Machine.ExitCtrl :=ref(Leave);
       
        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]);
# L0 j% c; Y/ I: U: \& d( s                 Buf.Name :=BufName;
: R9 W8 b: W7 n# \& M1 n5 g        Buf.Capacity :=5000;
7 Y4 q  `0 N: h# w" ^        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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