程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
* T) ^# z  N2 l% u, xis
" O7 ~  o6 k$ W& o1 Q: W8 k) X        i,j,Rows,Lines:integer;
! |1 K+ j% R0 ~1 A        MachineName,BufName:string;
        Machine,Buf:object;
do
, r$ p, n. _2 Z" }  Q  L4 x        if Number_Of_Machine/=D_From_To_Chart.YDim then
* d; \' N5 Z3 }  I' `/ x                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
4 H4 D2 u& w8 [7 C2 m6 e) M9 U                when 32 then
                        print "No";
9 n: q# }6 N' W( b' {# y                else
                        print "Cancel";
) O0 |1 R" o# a* Y                end;
$ e# W6 U$ \+ \7 [5 u% P        EventController.stop;
end;
  S7 v7 u4 Y: Z# I' x+ _PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
' h$ Y; H2 A( M$ R                if j<i then
. U: J9 b6 ?1 Q' D) G                        if D_From_To_Chart[j,i]<=0 then
3 F' `/ m! m2 ~5 z3 u/ c/ @! j( h) |                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
& W& g4 k& a$ C/ `0 Q, B% l                        end;
                else
1 K1 D' P) n% i                        if j=i then
1 s% U. {3 T" y$ R/ T* F                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
7 z6 O- P- I  e9 _; {# W0 e                                end;
6 q. `$ P4 g4 _+ N0 }6 g, J: \                        end;
                end;
        next;
next;
) k, ]# E" p0 Y6 ^
end;
8 ]) W& e3 K$ K) A5 y5 m- ]
7 H( T2 b) T( j' \    Lines :=0;
        for i:1 to Number_Of_Machine loop
( g" j8 `, I* H6 T        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
: C' U; m9 u0 s1 p2 D                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
7 u. F$ c* B, I/ m                        PartsTable[5,Lines]:=Rows;
# Y( \) f4 Y" p$ Z# }                        PartsTable[6,Lines]:=j;
                end;
  h# U7 K+ A- \) y0 g' P        next;
. a5 H$ f+ [# V4 ?- S        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]);
" f6 P0 P' f8 @. I0 d. P        Machine.Name :=MachineName;
) Z# X) W( |8 G0 {        Machine.ProcTime :=5;
* R3 l, l" o) C3 I6 H2 P- V        Machine.label :=sprint("machine_",Rows);
9 ~9 J7 F- H: e5 e        Machine.ExitCtrl :=ref(Leave);
$ u( }# S. f$ }+ j+ J       
! c4 e- L9 T. ^6 c( y! s$ I; \        BufName :=sprint("BF",Rows);
# t. U6 F% G5 V* h        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 p! I4 \, ~* h3 \8 A. f                 Buf.Name :=BufName;
" \/ n9 n$ G3 y: c% J& ]4 c5 t$ R        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
, k7 _  n. p; u; T$ g7 enext;
8 x, D. \% J' I2 n+ z4 gend;

五五

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

wudi

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