程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
# j0 ~2 Y! V! p; ~8 t# Xis
0 o" f! m1 s  m- C' p! ?3 A        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
0 p- Q3 `$ j' ^3 ?' \; Vdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
/ U7 c' H: k; s6 d  `' n" k$ w                        print "Cancel";
0 q' D) Z/ R, A4 Z                end;
! O" h1 h4 f. [7 v1 G. e  V        EventController.stop;
end;
PartsTable.delete;
' j/ G; U: P# r0 Y, _for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
5 b/ W) u& m  r- W2 D) k1 V0 ?                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
3 }) h& b& A, k) B; x, j                        end;
' c4 t; s' y! i! B- X4 B  v) ^6 W                else
                        if j=i then
7 g7 b+ f+ R( n3 n$ C                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
# A: W. i- F4 x8 @                                        EventController.stop;
                                end;
                        end;
* A/ A6 v9 D1 Z  _  r1 i                end;
. b) R9 v" y3 g  Q6 j& E: T        next;
next;
  q1 }* H6 D( @& {
! R' l( y1 S+ T, ]$ M. eend;

    Lines :=0;
3 K  v+ H: q. x9 `7 M1 l$ U- a9 ^        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
; J2 c: \$ J6 ?+ L+ P. X& u        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
% M& H8 b5 Z; K0 P                    if W_From_To_Chart[j,Rows]>0 then
9 B3 x" c0 m6 ^- q1 F& B                            Lines :=Lines+1;
) T6 ?5 n2 d' c4 h. o4 l$ E                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
2 i. p- I* A, u1 ?                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
; P! X2 s% A- }% ]* R3 _                        PartsTable[5,Lines]:=Rows;
7 [6 k: f( u( [  Z8 f$ Z                        PartsTable[6,Lines]:=j;
                end;
) o$ X$ p+ }1 W        next;
; h! |% c# [$ o6 [7 V- I0 a        MachineName :=sprint("M",Rows);
6 _6 u+ _5 g* m6 l5 b        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]);
9 m* f" N' S( l+ R1 |        Machine.Name :=MachineName;
$ L* v+ X  Q/ g, h7 T        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
/ o$ L$ R6 _: I. j        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
- C, r1 z& y4 n1 s0 W        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;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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