程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
/ W# n+ x' f4 S) t6 F" H        Machine,Buf:object;
3 ~1 i  e; J" i* pdo
4 p8 I) G; y3 Y$ R. s5 L; {        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
8 o1 O. ~, F% s9 k                        print "Yes";
                when 32 then
: _& I1 m, W- ?/ U- ?; r                        print "No";
4 C' t, J% k. x                else
0 P0 K( [& d3 u, Z1 Z$ Y                        print "Cancel";
                end;
/ g  |& l9 n. A3 L7 E7 l3 \        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
( O; ~" g5 @+ a2 u3 h                if j<i then
) s" \8 `. u4 W8 k! c. v                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
+ y: M6 Q2 p+ l8 c7 J% w# @                        end;
& a+ H$ c0 w4 C                else
                        if j=i then
% v: F6 j  P. |8 V) Z* H5 T! f" Q+ P                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
* ]. }2 M) \+ X7 V                                        messageBox("distence<=0...,",50,13);
! {2 T% p8 [2 Q7 H. s3 O# \                                        EventController.stop;
/ W4 K) w4 a3 s/ t/ ?) p. J& r" Z                                end;
                        end;
6 k0 {  u! a! T( J+ Z; t, d                end;
        next;
0 G+ Q# A% V& }next;

end;
$ F) f5 c( D5 X: C" K6 h
  I7 l) K" ]. c" _6 s    Lines :=0;
        for i:1 to Number_Of_Machine loop
* S! s+ `# L1 x! r3 B) K+ w! p        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
  |' c/ A$ ^5 D% }" b( W6 K8 \                            Lines :=Lines+1;
  T9 o; o, [8 \( x9 m                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
, a# R: t/ C5 {6 r0 u. ~; ~                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
- |! O  S# `: r( x                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
* w3 q$ Z- |( K5 Q" M7 V                        PartsTable[6,Lines]:=j;
                end;
- F8 @* Z6 e7 f( ]6 e        next;
        MachineName :=sprint("M",Rows);
' w8 c- g3 J3 D, }3 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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
) ]. \8 R2 `' b! @       
( p4 T  R6 P& l- R7 J        BufName :=sprint("BF",Rows);
6 f$ ~2 t9 F0 P0 ]5 n$ S, I; @5 o        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;
        Buf.Capacity :=5000;
# o7 S3 t" N+ Q" s1 h8 W. @# J, B1 \        Buf.ProcTime :=0;
; G; M9 A+ \/ P        .MaterialFlow.Connector.connect(Buf,Machine);
$ n! h1 z  D6 Bnext;
end;

五五

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

wudi

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