程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
2 B* ]; u( o& L' ]        i,j,Rows,Lines:integer;
- f" c( T- _8 c8 c6 s* P$ W        MachineName,BufName:string;
) Y& x2 N7 y8 ]' ?        Machine,Buf:object;
# I9 h% }! J) _; O1 ^5 W; D0 [do
" a; }% R4 g* l- d( G, T        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
. I. f: p$ a, e/ o& f                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
! X# R0 p! ^$ J0 E        EventController.stop;
6 m! x6 ~' s4 L+ Vend;
PartsTable.delete;
* p+ [7 s9 ~; G  D- M; F% Dfor i:=1 to Number_Of_Machine loop
) J* j% U8 q& a        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
2 ^, l7 Q0 C2 p2 ~$ L. b                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
! Q, ?' L+ @: o# c                        if j=i then
                                D_From_To_Chart[j,i]:=0;
. w# J7 F) T1 m( _                        else
( E: A" X& C" V                                if D_From_To_Chart[j,i]<=0 then
- o/ U3 b+ w6 p7 T5 p% B4 c- I! a                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
0 x) [( G6 g/ \/ ?8 v# A. V+ l                        end;
; c* O3 J" p+ ^1 f) _$ W8 I                end;
( U7 z$ P- B3 N. y6 b1 @        next;
& `% F: g8 T, v" [6 Z# snext;

4 a7 ^. u8 ?+ u' l$ o5 Hend;
+ C0 \- p3 d0 Q- ]& v! x, j, h
2 s1 x3 P4 M) @, j: Y+ G    Lines :=0;
0 |" I7 z! [/ O4 h- `$ ^1 Q4 J% f        for i:1 to Number_Of_Machine loop
9 ^) \. e6 {, K& D        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
* c& P6 _" P1 y8 |4 a- q                    if W_From_To_Chart[j,Rows]>0 then
6 [+ D0 I& v+ q9 t                            Lines :=Lines+1;
* |; ]$ m* Z9 [- L; c                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
( b$ }- l: Z; k6 B                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
, ~, t4 l4 f- g                        PartsTable[3,Lines]:=sprint("Parts");
4 |# D% I9 `2 i6 H) w                        PartsTable[5,Lines]:=Rows;
$ L8 X$ M  T* W& i0 V' X! ^% A                        PartsTable[6,Lines]:=j;
2 {% E3 m: Y: A, X; P+ U. G                end;
5 l4 J2 a( K2 Q. z8 p( ^& l; x        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]);
        Machine.Name :=MachineName;
" P- k: ]/ h0 s. V% P        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
& Y) ^  G# U3 ^/ k1 i$ T+ P        Machine.ExitCtrl :=ref(Leave);
4 ]1 J- C' J8 l, b) N# x5 _       
        BufName :=sprint("BF",Rows);
* X$ n. _$ U& V8 W. V        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 ?$ A* U7 |5 g        Buf.Capacity :=5000;
# K1 ?/ {2 s- ~1 \7 V$ `4 f/ q        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
. q  j; U$ y) J* {! K8 a. gnext;
7 k, A+ ~$ a$ b3 h4 Aend;

五五

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

wudi

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