程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
1 j, t+ ^6 X& V2 V' J) g& ]# sis
        i,j,Rows,Lines:integer;
: i; q0 I' U) y. h1 Y. w3 |        MachineName,BufName:string;
        Machine,Buf:object;
do
+ o. g# X! z- x! o6 Z$ p        if Number_Of_Machine/=D_From_To_Chart.YDim then
, D3 |0 Y! _- M+ Q; ^% k                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
% R& L$ `# ?3 C$ G1 ^* B* v                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
% y7 R: ^( ]. U- T/ w                end;
        EventController.stop;
" v# t6 O6 ?" O: O# @/ m, e8 [. A9 [end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
0 \* Y  d- S, {3 q2 T* A                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];
4 V6 t7 M- M8 z+ O( a                        end;
- x  {" g9 `9 T8 y2 @/ n# s5 r* y                else
7 V9 t) |7 w3 p& M9 g                        if j=i then
                                D_From_To_Chart[j,i]:=0;
& _) Y1 z" T! }6 R2 t+ [                        else
                                if D_From_To_Chart[j,i]<=0 then
8 j9 Z) j5 e4 M. J: Y                                        messageBox("distence<=0...,",50,13);
, o9 J8 F# W' o                                        EventController.stop;
                                end;
                        end;
                end;
+ H% R4 e) Z! P& T* e; A        next;
next;

3 [" {- j  s; M: I+ |9 aend;
3 P7 }$ }- Z: [$ c/ D6 b! ^: v$ c* `
- n! }/ _' K" P8 l- Q    Lines :=0;
1 c; O9 U# Q* ]% ~        for i:1 to Number_Of_Machine loop
        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
2 k8 ~. ~$ d4 p8 y8 k9 w                            Lines :=Lines+1;
' l; c" N& l  E4 a, s" t* I                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
1 }3 z8 j+ x* c" F. {8 J, a                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
6 T8 a2 ?9 K" D, M+ ]                end;
! {' t: i5 d9 J8 H9 c$ G2 v        next;
' }! Z) g: A, V' v' C# \* Q  U        MachineName :=sprint("M",Rows);
, T4 L/ {8 E2 H$ s$ i$ b% P7 Z. g        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]);
% X/ p! S/ r, b' e        Machine.Name :=MachineName;
/ W) t0 e- D( {+ v, T: P; F4 {& N        Machine.ProcTime :=5;
8 Y- `  g7 E. }. \) B        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
" v; k# Z' Q' m) _& g       
        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]);
3 U: h9 H- x3 R0 \% Q$ [                 Buf.Name :=BufName;
1 W; l4 ?! B+ A        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
# R5 P3 u( @5 ^next;
end;

五五

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

wudi

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