程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
# b7 r5 ]( ~4 R* i* `$ V. i" A% F4 M        MachineName,BufName:string;
) k- D4 v6 r( I4 M4 t. d        Machine,Buf:object;
* M0 G3 ~4 b" G1 a" Y# ddo
& p2 q7 n, _. k% M& V2 v4 ?        if Number_Of_Machine/=D_From_To_Chart.YDim then
  N6 H5 @( `" ]' T4 M* x                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
* d. ?9 X9 O7 Y4 p& Y                        print "Yes";
                when 32 then
                        print "No";
$ N& ]0 ]/ e4 Y) ]; R; Y2 r                else
, i: N0 ]8 s$ D+ ?5 U8 a- d                        print "Cancel";
) b" B0 ^8 l; n- _  {4 K                end;
        EventController.stop;
$ K4 o' \% A6 o2 kend;
- d/ F7 K/ h) PPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
8 W: L, d! J; W8 m6 A1 r# I9 Y$ n                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
$ S# N' |' |  G. K                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
# O% T+ }/ l" u# e' K) u, v                        end;
                else
+ {0 W! W& B& ?8 _  S2 K6 H                        if j=i then
                                D_From_To_Chart[j,i]:=0;
2 t( S$ @' C1 j% d6 G) S& Q9 D                        else
) E& M# l9 `4 c: W                                if D_From_To_Chart[j,i]<=0 then
0 B% C0 S% R6 n1 |* J3 g, m2 l% h) v                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
6 [+ K9 ^: z6 T% i5 |0 g/ ]                                end;
5 `, v1 U2 Q+ [. Z                        end;
+ P1 F( n* h& l                end;
        next;
2 }/ w. Z" x4 ^! {6 t, m# Lnext;
8 ]! Q" w' C1 u- f+ p
end;
; j9 [3 u/ y; q  k% Z
$ n/ E) k/ q* m1 C6 T. u9 P  Z3 ]    Lines :=0;
9 v6 M2 V2 F: G, c8 `. X        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
( G0 Z. j- E1 m- x/ `        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
; a: u$ A0 n8 z4 e" a                    if W_From_To_Chart[j,Rows]>0 then
  e. G+ |. a8 m% t" d0 Q                            Lines :=Lines+1;
& N. P1 |5 k9 R7 o) {                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
: n3 U7 ]3 r2 |" K                        PartsTable[3,Lines]:=sprint("Parts");
( [8 r+ L5 b2 a8 V) ~% V                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
( L. P# `; p. U  F) F: z* s  B        next;
) y. a- b% e8 A( \  @' ]        MachineName :=sprint("M",Rows);
/ D' g) G, F. b0 F; K/ R0 Q. `3 N        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;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
) h  w; ^! c4 a' _1 ~3 C        Machine.ExitCtrl :=ref(Leave);
1 N5 |" b' W6 @       
4 U% t1 m% I1 o% g" x: ?9 V+ T        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]);
0 E/ {+ J9 D' N6 i                 Buf.Name :=BufName;
! s/ B6 F$ ^4 q) k* `        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
* W, a- k* `7 q& U, N: \, o" f        .MaterialFlow.Connector.connect(Buf,Machine);
next;
0 [' U& S( t9 M' J' l* Uend;
: ?+ g3 l2 q% p

五五

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

wudi

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