程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
3 c& X, \4 V/ E% t* R        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
2 x! D7 t% c) t) h: T3 @$ r/ ido
        if Number_Of_Machine/=D_From_To_Chart.YDim then
% y4 u; z7 d* O                inspect messageBox("Number Wrong...,",50,13)
% k/ o* t9 @& u/ M                when 16 then
                        print "Yes";
. J0 u, h2 o3 ^' g5 O* }5 |                when 32 then
                        print "No";
# }9 @3 _& k. b  Q                else
                        print "Cancel";
                end;
        EventController.stop;
/ A. _1 o- Y7 lend;
PartsTable.delete;
* U7 E& r; x0 d' S6 hfor i:=1 to Number_Of_Machine loop
$ Y, `. s& n$ U4 E        for j:=1 to Number_Of_Machine loop
                if j<i then
4 D% ~* F% U5 G                        if D_From_To_Chart[j,i]<=0 then
  V5 D2 \5 s7 Z                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
9 ?$ J" H2 U" [+ y3 g  H  V                        end;
                else
, |' H$ F! ^* A                        if j=i then
                                D_From_To_Chart[j,i]:=0;
; C# R% ?& {/ b& q3 e                        else
                                if D_From_To_Chart[j,i]<=0 then
/ [& y0 b0 n7 B- m+ F% n% W7 i                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
5 g2 x+ r+ S2 p  a% c# g                end;
3 k& G# ^! g* t/ r4 B9 @2 f        next;
- k' f$ s! {7 b) Xnext;

. S. v4 c( `' {* pend;
( `! i+ s4 |# }- O3 m# E
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
' P1 t" x/ T1 g2 a$ X            for j:1 to Number_Of_Machine loop
! Z* e5 h* }. I; ~  m; {                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
5 A4 Z+ |/ L, L4 o( }; l% u2 a                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
) t# z  q3 a* l, X                end;
# F& G+ u6 \! |  W& C4 M        next;
        MachineName :=sprint("M",Rows);
% F3 p2 @6 ]' w/ j7 N, X; ]6 P9 |        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]);
1 }- ^4 G. w, k        Machine.Name :=MachineName;
. r1 P; Z4 n) d6 O        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
, R3 e1 E* @+ v6 o0 y9 d1 u$ T8 B        BufName :=sprint("BF",Rows);
; b, `! _$ U; l! G        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]);
% n4 }+ ]1 s3 s' P3 p                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
8 h3 E# f# g7 l( g# U5 c8 i        Buf.ProcTime :=0;
, p: C+ a) K9 }& U/ _        .MaterialFlow.Connector.connect(Buf,Machine);
next;
; b: g5 U* Q- c% iend;

五五

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

wudi

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