程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
" b# ^4 o! ?' o- N) h3 u$ s0 L& {& pis
5 j) C* a$ v! @6 }$ v5 Y$ k        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
0 C* \( ~, l# T        Machine,Buf:object;
6 C- W% x6 \* O. V  Ndo
7 l: q& I; W+ ]/ X  a  h; p3 {        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
3 F5 b6 r: u' `+ V2 h! _                when 16 then
1 E1 g) ~7 o, [( a; K                        print "Yes";
* v% d, l. j9 b$ V  F# {                when 32 then
* y% u' m9 t, `+ @0 I                        print "No";
                else
" M' O' G. A% f: s8 I0 f                        print "Cancel";
                end;
2 C/ g6 c5 u$ n: C        EventController.stop;
3 a) \* p3 {7 |# ~end;
! k5 y: P9 d( R5 e  @$ tPartsTable.delete;
. ]; f7 \- F  M9 }+ T% mfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                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];
. `2 P1 }5 L) I                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
2 [! g# T6 S, O6 Z5 v* \3 r                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
- ?2 T) V+ R# X                        end;
+ {) G1 N; ?' m' {0 h  m                end;
        next;
next;
2 v6 G+ A4 S) p9 Y7 t
8 Y. O2 U, N) v0 @" g6 P* G6 R$ Fend;

- n* E. Y, U/ m  x' h5 S% q. n( ]    Lines :=0;
) `- c- E& q5 O8 C2 j        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
* [6 o8 r0 v$ }        MachineSequence[2,i]:=Rows;
) Q( J# r8 [  |1 G5 z6 |            for j:1 to Number_Of_Machine loop
% E* W- x: B' p' z/ T3 U                    if W_From_To_Chart[j,Rows]>0 then
$ f8 M9 ?9 i: c& [, \, K; o9 ^! S+ f                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
2 }$ m* R- I* x4 |4 z8 w) P1 b                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
5 d5 u, p# o3 M/ `                end;
; X2 K  Z1 q& i        next;
        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]);
* O8 c+ i- y1 d        Machine.Name :=MachineName;
/ ?# @' U; F$ A6 k        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
! J. O& I0 [) ~7 c: f8 T        Machine.ExitCtrl :=ref(Leave);
2 `% h( v( l2 y& L6 n) l       
        BufName :=sprint("BF",Rows);
% p0 W6 T$ f2 Y8 J  D: F" ~        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;
& ]7 [6 A: K& g        Buf.Capacity :=5000;
1 @' K1 y2 v' L) H) J$ V* `/ [        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
+ }8 @/ g/ J) O8 ^

五五

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

wudi

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