程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
8 f7 q- u$ j8 r+ V. k! Nis
% d: B9 j0 F  C        i,j,Rows,Lines:integer;
  s8 y  C! m3 ]* Z, u# H( {        MachineName,BufName:string;
: g) `' c, B2 L( U9 K$ W. A* c        Machine,Buf:object;
do
: B; @/ N. k1 j6 b. C0 M+ Z7 n( T        if Number_Of_Machine/=D_From_To_Chart.YDim then
% a  x9 \* i  K  D                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
$ w2 Z  ]) _: M* Q                        print "Yes";
                when 32 then
6 x  r; K: W7 `, C, N' [                        print "No";
                else
+ s3 ~& P* P3 i8 L8 s                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
, J0 a/ L( u. B        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];
                        end;
8 i; Q4 T* I/ [! x' G                else
7 d& q- y# i# ?$ O3 r7 E. x                        if j=i then
( i3 w- t2 k* W0 b9 \                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
  K) ?# b% ^( u1 z$ M/ @8 l                                        messageBox("distence<=0...,",50,13);
% d2 R1 G4 k  o2 V; c+ h- N  c- s                                        EventController.stop;
                                end;
                        end;
' U$ m- ^5 b1 a                end;
        next;
next;

2 T/ H& u( O8 J* L) X' W: d! l8 Tend;
) ?: [4 ^& N- ]; u
; @9 b) f) t2 J$ w    Lines :=0;
, C/ R1 U* r' N        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
7 j/ \, E: d  k. m        MachineSequence[2,i]:=Rows;
& t% `$ M7 Q+ Y; p            for j:1 to Number_Of_Machine loop
% U" }) l5 f, y, n0 }! e                    if W_From_To_Chart[j,Rows]>0 then
! z+ R: t1 R' d+ B, N& }                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
: t8 ~$ @0 t6 B                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
1 `! H; u1 U' r$ Y! _                        PartsTable[6,Lines]:=j;
7 q" r: ]! g* T8 H                end;
        next;
        MachineName :=sprint("M",Rows);
* M, D) Q2 s& a0 K        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;
3 E' Q) w: z  I3 ]        Machine.ProcTime :=5;
& u. k: U) p' G* q7 N3 v        Machine.label :=sprint("machine_",Rows);
! h# e) j2 ]/ b- w4 j1 T2 `        Machine.ExitCtrl :=ref(Leave);
8 W& B8 B# h& ^/ g       
        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]);
" P4 G/ R% z( ^9 A3 f                 Buf.Name :=BufName;
0 N2 z8 V9 X; J        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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