程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
8 S) T$ I4 @5 T5 P/ P; Q* G        i,j,Rows,Lines:integer;
: U* e: F0 ~8 J1 k: A% o' m2 h        MachineName,BufName:string;
        Machine,Buf:object;
! h+ K1 {" f! Z9 F9 _do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
) s! o: }4 H- Q                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
: \! [1 U! ~' j; C1 u/ ~; z                when 32 then
8 F3 }0 {6 @2 S8 @8 p" a                        print "No";
                else
! X7 H% C4 j1 v3 c6 b                        print "Cancel";
                end;
& O, ?" W  S  ^/ i        EventController.stop;
9 V% o" M* `2 I* K8 J% U$ Kend;
8 W% v( H0 z7 f; Z& QPartsTable.delete;
: ^7 F) E, X; t, a/ V' Zfor i:=1 to Number_Of_Machine loop
0 K4 _0 ?$ s  j6 v  c; z        for j:=1 to Number_Of_Machine loop
' I! v% u% w* ^& s- `$ s                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
9 H% U8 _* w7 T6 T5 H  b% b# `                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
8 X# N# g( ]- y: v5 q                        else
& y4 n( N$ g7 V9 v                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
( a4 f! o1 N' T% f  e% O                end;
        next;
next;

end;
4 l" l+ \# b+ Q/ X3 _
    Lines :=0;
* _: ]7 R, J5 S" Q        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
) U6 W( _: d7 }( g            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
/ z' \/ @9 D, x2 l- ~7 h; Q                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
: e5 O/ @/ J, L# N1 ~9 Z9 ~                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
9 A" Y& ^9 F/ \" p* ^                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
% o( _. L2 y' x( i7 |                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
0 w- [) j) y8 l0 Y' K/ O        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]);
$ Z4 v6 \. S, X8 q1 }        Machine.Name :=MachineName;
6 D* i$ ?& f4 [9 }        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
* _, }  A* ?. q9 ^       
. w% F" A3 L3 o, a2 ]        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]);
2 V/ I( F" g) z0 {% h0 Q, C                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
$ J! T! C$ ?* U1 f2 L( u3 M2 W        .MaterialFlow.Connector.connect(Buf,Machine);
8 d$ e" s/ e8 I+ Anext;
end;

五五

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

wudi

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