程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
, `* k( P: J% Y1 |/ B        MachineName,BufName:string;
+ X9 @& V6 Y* w% p( F/ C        Machine,Buf:object;
! W  S$ p# ~! ]7 g7 w7 Y" S6 fdo
+ y& p- U" |& P7 O        if Number_Of_Machine/=D_From_To_Chart.YDim then
* P8 q1 }4 V3 J! I: N  ?0 S  c                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
/ ^3 h8 r1 h3 m0 U7 A3 @                        print "Yes";
                when 32 then
  D6 v+ t: P) m# ?                        print "No";
. P! p2 q6 }* G! u                else
: A) @) T& C. V' J$ f                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
0 g) `- l7 o0 @/ Q3 s/ t                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
3 Q7 V& ?4 R* _$ [- R% b7 o( ?                        end;
8 G7 d% E. ^8 |: [; f                else
                        if j=i then
" U% ?; @0 J2 j' F                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
2 Y8 {* O& }" b; }: J                                        messageBox("distence<=0...,",50,13);
, H1 o5 p' B* z5 a& V$ x' t                                        EventController.stop;
: k$ }: y5 C( X7 H& p  e7 N                                end;
                        end;
                end;
        next;
! A- \. ]( O% I" mnext;

* ~( L3 \/ m6 A1 }; Uend;
* B& m3 X; }' J. z+ p$ C
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
3 B" k& }0 Q" O( S* D9 r' f+ W* ^4 ^7 {                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
1 [! p; K* W  t9 a7 B                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
+ B4 N& ]4 ?9 _" p4 {                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
* C0 [7 R3 Z$ y$ ]                        PartsTable[6,Lines]:=j;
                end;
        next;
* i+ m4 K! c0 R        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]);
9 _9 r4 r7 U$ L# \. c        Machine.Name :=MachineName;
& f8 K6 i2 t4 i3 Z  u# C- o        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
1 l) s) L1 l5 k* L        Machine.ExitCtrl :=ref(Leave);
4 A6 J6 T' A" ?& F" e+ K       
) M6 j+ p& A6 L; F  ~        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]);
0 m9 v; v6 k) T1 H+ u                 Buf.Name :=BufName;
' s0 V* I2 Z- m) J& ~: x2 _        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
/ i; C0 ^* r4 W4 o, `        .MaterialFlow.Connector.connect(Buf,Machine);
; J- I( ~( n9 f; l* fnext;
6 C4 _$ G, ^- n. |end;

五五

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

wudi

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