程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
  t, F- i7 D' H, G) Xis
* }- A/ l% X6 L% g+ K' ]5 l        i,j,Rows,Lines:integer;
' L1 C) ?+ y# ]8 J- x        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
8 v8 ^- Q4 k1 t                when 16 then
4 Q! }9 w$ v$ `5 O' c7 j                        print "Yes";
                when 32 then
& m+ b- G8 D8 R7 _3 Z* h                        print "No";
                else
                        print "Cancel";
9 f' C% j' J7 ^+ l                end;
        EventController.stop;
+ P4 {9 s3 Q0 s2 a- j5 iend;
& V- a! ?. a- ]4 CPartsTable.delete;
/ U6 e2 v$ T% S( ifor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
5 }2 l/ A' T( s/ o, ^+ k  s) o                        if D_From_To_Chart[j,i]<=0 then
" Q% d& S# |9 X; n6 S                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
0 v" l5 e  B$ q0 P$ L) r# r, ?                        end;
                else
                        if j=i then
8 `: l5 v7 x! @( S                                D_From_To_Chart[j,i]:=0;
                        else
+ A  E/ t* F" K/ X% D4 o                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
8 F5 A) Y: t1 _+ _$ [3 Q8 r  ^  m                                end;
- R* e& k: `6 Y" g% y                        end;
                end;
        next;
next;
/ G" i! X8 S  ~; W' y( F$ f6 J
end;
4 ^# i% s7 h  A8 U: z5 M; P5 e' W- P
    Lines :=0;
; @/ }% A( L8 D! W, g2 f        for i:1 to Number_Of_Machine loop
- o1 M/ s/ q' U; P5 z4 W7 @        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
0 @2 n4 f) b5 p' h        MachineSequence[2,i]:=Rows;
. z5 L9 X$ R' x' S            for j:1 to Number_Of_Machine loop
# W7 d1 B1 j& N$ z                    if W_From_To_Chart[j,Rows]>0 then
% j8 F: p: y! V! V                            Lines :=Lines+1;
, u1 n' [( F% z( o9 d8 F, _                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
' q; T3 s( y* Q9 W                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
: K/ I  H$ E$ f' c9 \                        PartsTable[5,Lines]:=Rows;
' ]: }  z0 R. t' c& y  ^                        PartsTable[6,Lines]:=j;
1 c; y$ F$ W' t: _                end;
+ v. M- V* @# l/ g        next;
/ o2 m& o' y& 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]);
        Machine.Name :=MachineName;
6 K2 A6 x/ n2 @# D4 X* [        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
0 v2 S4 H5 Q/ z       
1 A: K& ^- S" a) p& ^$ v        BufName :=sprint("BF",Rows);
: l8 J& d4 Z- w- s        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]);
                Buf.Name :=BufName;
4 `- u+ p0 i' ]5 l% H/ m" t        Buf.Capacity :=5000;
. _* F* {" J8 D" _( [. i        Buf.ProcTime :=0;
# H5 Z3 P, s( l' l        .MaterialFlow.Connector.connect(Buf,Machine);
next;
/ y8 ^+ T% @. \0 ^end;

五五

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

wudi

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