程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
( P+ }* O4 I) K  jis
! T- v' m+ S$ ]; r* s. f9 K        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
9 c+ L! @  t6 `' {do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
/ N2 C9 v7 h  Z' B- |: o                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
8 V& b: H: |( t! ?; A- G4 G                        print "Yes";
' ?6 H: C4 t3 |6 o2 A- U- E                when 32 then
                        print "No";
                else
9 L  m& Y6 v/ O6 I! l                        print "Cancel";
0 P( i/ e/ r9 F. w/ N( A2 x" T9 C                end;
4 ]( ?- U2 J" Z9 v2 {6 W! S        EventController.stop;
  _- j# l" |8 k. D. bend;
PartsTable.delete;
% f3 _8 d+ @/ Ofor i:=1 to Number_Of_Machine loop
' _4 ~4 N: j3 b: f$ h/ M. B) |        for j:=1 to Number_Of_Machine loop
7 S# k- d4 b1 J8 A+ x                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];
                        end;
. A- n3 Q$ f3 U+ ~  k! f                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
) W! Y" z1 B! o8 t( ^                        else
/ e1 [: e4 V1 {                                if D_From_To_Chart[j,i]<=0 then
* L) Q* }$ Y; b' B+ m  ~% n& i- u                                        messageBox("distence<=0...,",50,13);
& X- b0 V% W3 s( g  D  c3 Z7 M2 E                                        EventController.stop;
% a; l2 |4 a' l6 z9 H  ^2 W                                end;
' q( M" a6 g% p; N/ W% t" J5 A                        end;
                end;
+ g1 U5 v- Q! s) u8 e9 v3 U        next;
next;
- X; A2 m0 c' j; s3 q. ^
end;

9 K2 Q1 V( j. A: e    Lines :=0;
- b3 ^% c* d0 U) r6 K1 \- }        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 w; l, Q" _1 ^: _1 j% Z; ~) `  e) P        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
) r& l: D/ M2 _% x1 _                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
* S! A! `. I0 U5 Y8 u2 f6 B" t( l. L                        PartsTable[3,Lines]:=sprint("Parts");
) G4 A) d( G: M9 o8 z; A9 `9 p( }( F, u                        PartsTable[5,Lines]:=Rows;
3 a: u* l2 @* ?                        PartsTable[6,Lines]:=j;
                end;
        next;
7 v0 K1 O0 O6 _; J9 ]9 A        MachineName :=sprint("M",Rows);
3 p- ]* ^: @& w        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);
5 [3 O! s6 _5 G5 O* d9 L5 U6 s        Machine.ExitCtrl :=ref(Leave);
  d! I, @& q1 H8 ], Z; _. i       
        BufName :=sprint("BF",Rows);
        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;
! `0 H. v3 y- ^$ H( U' I; L        Buf.Capacity :=5000;
4 z9 o2 x4 ~  Q9 R, j2 V0 i        Buf.ProcTime :=0;
; t" S3 u% H$ f  C, }, I        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
8 [( J/ t5 w1 l4 \' K0 T  {. E! s: p! @

五五

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

wudi

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