程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
4 I) [* ]- X$ n( {/ N1 C, o9 k        Machine,Buf:object;
7 b1 x* _- p+ O  Z" }; d( v- ?do
' g1 R: J/ O! q6 o5 m! w        if Number_Of_Machine/=D_From_To_Chart.YDim then
* |: c4 A6 r: Y7 S3 o4 Q                inspect messageBox("Number Wrong...,",50,13)
/ M, l+ M: x/ {! s- N                when 16 then
                        print "Yes";
0 g& G5 i& e) v3 q                when 32 then
                        print "No";
$ C/ W: ?- l9 n. l                else
7 N5 A+ Q$ A" w8 I5 z                        print "Cancel";
                end;
        EventController.stop;
' Y2 k" [, d) B( n& M* Y7 vend;
6 d* |' D. N' Q  N6 q9 _. yPartsTable.delete;
; i. H8 K+ R8 W0 z; }8 J7 ofor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                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];
4 z$ N( C) r( p                        end;
                else
8 l- B  q& w: L4 U- U( ^/ D                        if j=i then
                                D_From_To_Chart[j,i]:=0;
% _4 O+ V/ Z4 P7 E                        else
                                if D_From_To_Chart[j,i]<=0 then
0 ?- _' \/ a2 R  m                                        messageBox("distence<=0...,",50,13);
/ ^5 W# ^8 S& ]$ f                                        EventController.stop;
                                end;
# D1 S( i$ q- l                        end;
9 L, A; O1 \7 F' ^$ n/ W: l) F                end;
        next;
7 F8 E3 l! l: u( a5 M3 Znext;
* v: I5 u+ y, ?. C: H
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
) P7 V/ }9 X; V) j& s" P( V            for j:1 to Number_Of_Machine loop
0 `4 ]" c( F( v                    if W_From_To_Chart[j,Rows]>0 then
8 @" s& Y( B" y' ]# s                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
( L2 @5 p1 m0 n& |- U" q3 t                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
( a3 c4 y/ B# \; Q  l) h                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
; ]1 I* j4 t' y+ N! q                        PartsTable[6,Lines]:=j;
                end;
! A( u# H$ `" V0 c* V  y9 c        next;
: N- U  p, q" b7 {4 S. ]' w0 b        MachineName :=sprint("M",Rows);
7 t; `" g& P, S0 j, h        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]);
& O7 h5 w; b; W3 I5 k2 k+ ^% H6 n        Machine.Name :=MachineName;
8 R1 x9 F, D4 j4 C7 M        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
5 {6 c& ]" ~& \" M4 B4 ~        Machine.ExitCtrl :=ref(Leave);
       
        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;
. `2 s1 F1 A; p7 E8 v0 x# _        Buf.Capacity :=5000;
5 P+ L3 h# ^9 D8 q        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
" v# R& T* L$ Q4 t- S2 m/ Fnext;
" B6 M, N9 i( b- uend;
* a: G1 N- q. |3 v+ w

五五

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

wudi

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