程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
9 v! n8 r2 E6 X: M1 v4 iis
9 B( g; X; C+ p: h. r5 V/ ^        i,j,Rows,Lines:integer;
" Z8 T4 g/ Y& l' b; G# z        MachineName,BufName:string;
        Machine,Buf:object;
4 p/ E! Z: d) Ado
        if Number_Of_Machine/=D_From_To_Chart.YDim then
( g" `- T: u9 \/ P                inspect messageBox("Number Wrong...,",50,13)
7 k- s- u$ v2 W8 k. X" [                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
# f8 f. k, Y9 W$ F1 F) v        EventController.stop;
5 k) x( y$ s. p% k5 bend;
PartsTable.delete;
+ k8 X+ ~4 G$ k. m6 c9 t5 u- Tfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
" t7 J6 q/ O/ H; `+ I6 d. K4 f( o$ F                        if D_From_To_Chart[j,i]<=0 then
( T& X. [9 }. ~* m2 i4 ~% T. b                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
6 r7 x; i, M: E  i: v: @                else
) u  A* h) l. M- m                        if j=i then
0 m) ~) H) o1 s" B! ]$ f2 ]                                D_From_To_Chart[j,i]:=0;
                        else
/ e" P5 V* ^% _( a% D( H& `                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
; j9 F5 `) _9 a/ m                                end;
4 i- W& f# Y1 i0 h                        end;
5 @4 y# N6 L8 \9 H+ S2 T+ U                end;
! [8 b& {& n1 u1 Y3 b        next;
4 k+ V2 q9 K6 f7 C: w9 k: q' enext;
& b3 B3 E) U! J, O9 E2 X0 b
" E* Y0 Z! J3 J! y' ]$ aend;
2 }+ i  w/ Y) I4 y- m0 D! W9 y
' c. R0 T; p' C+ i3 }& X8 }% r$ R    Lines :=0;
+ i3 |" [/ h8 v2 c2 l        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
, S* K$ s- _) Z) D( Z4 ?$ W3 n        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
% X; k3 `: l, Z$ i- x                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
' k! I0 D: x; [1 a                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
6 k% T  i: r: Q/ Z5 }6 E2 d( A                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
3 E1 a4 O- F' ?4 B" B3 b- t% d) w: K        next;
6 G7 F( {* C  S4 t- Y9 h        MachineName :=sprint("M",Rows);
2 D. r) Y( ]/ g1 }& s, A& ^        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;
$ n" J; z* j. j6 {5 d; g        Machine.ProcTime :=5;
) i. K( P0 ~% ~0 g/ N        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
  x1 \8 L0 w8 N: ^! n1 y7 \        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;
: x8 C: o6 i8 E6 s        .MaterialFlow.Connector.connect(Buf,Machine);
next;
0 ]* r% S+ m, [/ d. Wend;

五五

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

wudi

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