程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
+ ~4 e$ m7 {/ G/ P4 h( \5 w, B! E2 Qis
        i,j,Rows,Lines:integer;
  Q. Y6 m& e1 x/ i% j        MachineName,BufName:string;
8 X& i, v, e+ }" h0 @; G        Machine,Buf:object;
( _4 w' ^8 b  E8 f  T2 @: L1 k. `do
/ ]0 a# R/ J; t+ T        if Number_Of_Machine/=D_From_To_Chart.YDim then
+ a# ]- y% _/ L                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
6 [# j4 M2 I5 m7 W0 n7 b8 U/ d8 V                        print "Yes";
# d6 Y4 d9 R2 K' a                when 32 then
( m1 K4 J9 c/ C# B                        print "No";
                else
                        print "Cancel";
7 Y+ F  F7 R2 h" T7 B) \3 E  ]                end;
" t1 G; C2 @# z/ C        EventController.stop;
end;
PartsTable.delete;
7 A* I4 V$ Q: G6 e6 a: a4 `8 \' Hfor i:=1 to Number_Of_Machine loop
; I5 V4 ~' f) w3 r1 u        for j:=1 to Number_Of_Machine loop
                if j<i then
) }* c& V0 T, h' C. m- ~/ [                        if D_From_To_Chart[j,i]<=0 then
9 z4 N7 c+ `8 I& `) f0 Q0 P                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
2 R6 e7 y- Q$ U2 d4 b  v8 r6 ^                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
  m6 j( H! b& x                        else
, L8 n' y5 q* }3 G- H3 ?, n                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
4 p' U+ |5 \, I, O0 c, r                                        EventController.stop;
                                end;
+ N- a( R5 U9 P/ H) y3 Y                        end;
                end;
        next;
: A* a, q2 w& y  _+ C0 q, Mnext;
) }* X* _' J& r4 f9 \! S' ]
end;

    Lines :=0;
# V: L% i5 u* z; {: A        for i:1 to Number_Of_Machine loop
3 T( }9 B5 L1 e1 J/ h9 ^4 e2 m; i        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
5 z) R6 A% d% }( r4 p6 A        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
" i. u4 h0 Z& w                            Lines :=Lines+1;
( q! S7 G% n  H3 T                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
5 q7 q! {) X0 ~3 u. D( Q2 m6 v                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
6 Q7 ?: i! f8 M9 C! @                end;
7 H) G5 |7 l1 Y6 c3 r# `! J        next;
$ N0 C* c1 n8 S! Z  n4 Q8 T        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]);
( d% k4 ?; j7 B; k        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
1 q, Y+ \' o3 ^, g9 F        BufName :=sprint("BF",Rows);
4 |! N; B: M# @: U3 {5 a' [9 |1 J0 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]);
% {# a7 m3 S) S6 z0 R                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
, X8 P8 ^4 A  [2 o( Eend;

五五

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

wudi

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