程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
; {+ e0 H; C4 x& B1 }3 Y        i,j,Rows,Lines:integer;
/ @% Y# d# ^7 S/ ~        MachineName,BufName:string;
        Machine,Buf:object;
4 G, A7 }0 R5 a3 ^: _: u8 K; Ado
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
/ Q# S% \* A! G/ \1 j. q# N                when 16 then
                        print "Yes";
5 X) H& C7 [* P1 E( }: A                when 32 then
- e3 ], J% z- \/ \                        print "No";
* i$ @" x) S, M! B8 C( L6 r1 P                else
                        print "Cancel";
. K# L+ X  C/ J* Z                end;
        EventController.stop;
end;
6 h1 y4 d% [* Y0 _+ cPartsTable.delete;
0 A) I% b6 J! \" j: d6 Jfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
  V+ F1 E+ r) q8 l' ?* h8 B6 _8 q                        if D_From_To_Chart[j,i]<=0 then
9 B+ \. f- k+ ]8 T                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
. q" ^: v" K. _5 A! m                        if j=i then
                                D_From_To_Chart[j,i]:=0;
  W+ x9 \; }' q$ m# b$ i' u                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
% A- W8 @7 Y$ C) w! q) l( p7 s4 {                                end;
                        end;
                end;
        next;
next;

& F! [/ n( C, p2 Y/ `; S/ Eend;
# C% a/ P3 D# D, d2 R/ k* S. l# s* a. W
    Lines :=0;
        for i:1 to Number_Of_Machine loop
2 g5 |8 z+ _7 i$ p5 R) l+ K! Q9 D        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
+ J2 T! [% |  V( ?  M        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
8 _" \" \0 H/ Q; j- v                    if W_From_To_Chart[j,Rows]>0 then
' r% w& P* u" ]$ Y( h2 t& q                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
  j% N3 V4 s2 M4 R, Q! V' h                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
9 f6 P  U  |3 H1 X7 B) K                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
6 v6 V- s, k5 t) s. }                        PartsTable[6,Lines]:=j;
                end;
' }5 u6 O6 D6 ?+ [1 M        next;
$ M$ V3 m0 U6 c% O9 }) m        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;
+ N$ n* w* k& ~        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
3 d, c1 q" t1 j! X; M        Machine.ExitCtrl :=ref(Leave);
+ K8 i4 S$ S3 f& ]7 {( |       
        BufName :=sprint("BF",Rows);
( B) I- W/ n) ]        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]);
$ v" i( M/ ]. S* f4 a& |                 Buf.Name :=BufName;
( B0 F- O6 K# ~! R4 q        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
" l) L) p1 O) t, H        .MaterialFlow.Connector.connect(Buf,Machine);
1 B, Z/ F$ }% W" v+ i( I) M) s  c5 s! Pnext;
3 [# `+ g6 C6 k+ p: Hend;

五五

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

wudi

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