程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
  M- N' {+ J. n/ x        MachineName,BufName:string;
        Machine,Buf:object;
" E) d7 ~* ?# J; q) G$ M9 Qdo
2 t; @$ x! s7 d) d2 [4 W8 \        if Number_Of_Machine/=D_From_To_Chart.YDim then
$ A5 W. H% H( P                inspect messageBox("Number Wrong...,",50,13)
1 o6 N! \- b. ]3 N7 J% Z: h- V$ ]                when 16 then
                        print "Yes";
/ \; e" Q5 `1 }                when 32 then
" y" ^) Q. |! M5 X4 y/ v* q8 H' k                        print "No";
                else
                        print "Cancel";
: Q9 v1 `' X' I3 T+ J% H                end;
0 K2 |  x9 |; P, Q0 J( x$ ]6 M        EventController.stop;
end;
1 Q) I' \6 t0 T9 l+ C6 }PartsTable.delete;
! L( l. W0 K% ]- ]  X! d- G0 Yfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
8 Z1 @  w/ \2 \' ^                if j<i then
5 A8 Y7 r5 I, z# R( V( ^* i) _                        if D_From_To_Chart[j,i]<=0 then
$ a3 b2 q$ }/ W! C1 r- d% q                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
/ S% P$ J# N; [8 l  r                        end;
! c" }% P- I3 o8 X5 D                else
                        if j=i then
8 u- V3 U: m* Y/ A5 U                                D_From_To_Chart[j,i]:=0;
0 {$ o' f! ^8 Q$ X9 Q. n5 q                        else
; p. `' h) o8 U" ?- S                                if D_From_To_Chart[j,i]<=0 then
, G$ V5 x' V: X                                        messageBox("distence<=0...,",50,13);
0 |1 ~: t/ y9 x/ n# [2 f% N                                        EventController.stop;
                                end;
& G6 V% \6 t% T1 r                        end;
. D  d1 h& a/ e4 t! J                end;
        next;
) v. N$ x/ h0 U) Rnext;

- Y, Y& k+ H9 [; W! t1 W% _1 ^end;

& e0 x* ]5 t" U* ?% T    Lines :=0;
        for i:1 to Number_Of_Machine loop
+ j% [( P# ~  B: i  ]9 |        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
: }; o5 V* T1 r* h                    if W_From_To_Chart[j,Rows]>0 then
9 C  C6 p2 M. z. X& R                            Lines :=Lines+1;
6 t* s# t& e0 P2 v7 l  H0 j1 \                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
$ q0 |* T7 D+ \1 C  J7 W                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
; q4 V; k6 N) D$ T+ O8 B% q2 E: [                        PartsTable[5,Lines]:=Rows;
# c/ @0 o6 T% o% O! o; O( F2 C                        PartsTable[6,Lines]:=j;
                end;
        next;
2 o  F* G8 L/ |# I- ~# l! ?        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]);
6 ^& ]8 B* g  }  [5 z  _- t* C        Machine.Name :=MachineName;
- N# h" A1 Y# t' @* |        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
- f/ g+ }) e( r- s- a! _        Machine.ExitCtrl :=ref(Leave);
6 t* f8 z" o$ b. _/ i( J, l0 b/ H- Q       
1 s5 f2 f+ l1 m( w2 q  U9 q, W        BufName :=sprint("BF",Rows);
7 U/ p! a$ Q1 C1 @: e) y        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]);
4 a& f: T9 B$ b/ r                 Buf.Name :=BufName;
) G3 n  c6 a$ n( g5 p        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
  d9 D% q' K" c7 D* F        .MaterialFlow.Connector.connect(Buf,Machine);
next;
/ m/ E' @" Q8 Wend;
" h6 v: R6 E$ D1 E$ ?

五五

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

wudi

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