程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
# D* A- d# c0 x5 S. `, ^0 b5 x- kis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
6 F! h" L9 r; D3 n        Machine,Buf:object;
do
* d6 I* |$ N8 t% U3 J: S+ \) W6 w        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
) h0 f  t' W+ P( }        EventController.stop;
9 D6 h& l6 w' jend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
$ L0 [1 e2 w2 @& |$ q0 T$ O! J/ E        for j:=1 to Number_Of_Machine loop
! A5 Q- c, j$ `6 E                if j<i then
2 v. Q- h% ~4 |+ v0 _0 o# k5 e                        if D_From_To_Chart[j,i]<=0 then
6 ~) w# _: b; w                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
" D0 H+ H3 X- `) f: y                else
                        if j=i then
; \' z9 _4 I. X' J1 [                                D_From_To_Chart[j,i]:=0;
4 h, n# h* P1 I% l, I* b                        else
) l" u9 w% I, b3 [! n9 k' N0 [- l                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
% v" t& }5 L& ~$ T                        end;
5 I- B! M% _" W2 i                end;
& F6 d1 _# m/ I        next;
& O$ R) e. A9 r8 C; b, l4 ~( d" g8 mnext;

end;

    Lines :=0;
0 H5 S- r  b2 s        for i:1 to Number_Of_Machine loop
! r3 ?6 a1 d$ C) y# c        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 T, O: |8 @8 z8 m        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
9 X7 q$ O% b' C$ Y                            Lines :=Lines+1;
5 K& W( x$ B  g                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
) h6 y# u9 L8 ?. v4 w  x                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
' b7 u& o2 I( ~8 b: x7 U2 ~8 r                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
0 ~8 l- W2 A7 K+ \                        PartsTable[6,Lines]:=j;
                end;
        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]);
$ c; j5 V1 j: d* D8 u9 c        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
. `, n' w9 S( O+ w* }. [( f        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
/ T* h7 M7 @7 d       
        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;
9 K0 Y7 G: h8 x* r; V5 R: {        Buf.Capacity :=5000;
, N: C! F$ R* t' `) C  b8 g' Q+ J        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
; e8 i: `& c8 h$ [5 x$ ^end;
8 W: |3 Y5 |4 Z$ T/ v

五五

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

wudi

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