程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
: ?$ a( Z0 E; A        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
8 x; o& v' g* s: u9 z0 z) j2 {        Machine,Buf:object;
$ v, I" m% S' \. m1 B& l* g' u1 udo
4 i8 [& X2 t- F( C/ d/ A+ e7 F        if Number_Of_Machine/=D_From_To_Chart.YDim then
* T5 q0 v$ b/ c# {                inspect messageBox("Number Wrong...,",50,13)
! ?' h, W& Q! e% A                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
/ u) h2 n- W1 O0 V  e                else
) G" ^5 B! L6 C  g; I6 a5 ?4 Z                        print "Cancel";
                end;
  p2 v# f$ _  u- K        EventController.stop;
8 M( w- p: q1 t7 W5 `6 Gend;
PartsTable.delete;
) w) N1 V9 o2 Q1 |2 o( [( {- ifor i:=1 to Number_Of_Machine loop
7 M7 ?% L# I2 D" `. Y        for j:=1 to Number_Of_Machine loop
! d6 n2 ]* k# q! C5 v/ u                if j<i then
# x# ]$ w" _' l                        if D_From_To_Chart[j,i]<=0 then
6 I! L  z" E0 m7 |7 A                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
1 C" Q+ V. F4 X# K2 l' m                                D_From_To_Chart[j,i]:=0;
! h9 a2 I/ G% D                        else
! V; ], D+ p: c1 C                                if D_From_To_Chart[j,i]<=0 then
" n; ^& n% w$ {9 Q                                        messageBox("distence<=0...,",50,13);
  }: m$ m# P/ N                                        EventController.stop;
( e: i3 Y3 T+ h3 n. X                                end;
2 H* t$ \7 b4 a/ J* O6 Z. D7 S: e                        end;
7 _, d# A. Z  u0 p( n" D/ l                end;
/ f6 n: Z: o& y2 m$ l5 k9 U: ~        next;
- K4 V% g  L$ i/ g& unext;
! K$ t1 c3 p1 E# Y; x$ l
6 z+ o+ y- J7 Q- |- V) Vend;

    Lines :=0;
6 B5 t" w5 Q1 Q' m; F& d2 h        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
. H$ T1 u# J/ z' ?4 L# R        MachineSequence[2,i]:=Rows;
7 i* V- M9 A1 [2 i  Q            for j:1 to Number_Of_Machine loop
, o8 q2 P% m" ~6 _/ l9 [5 s                    if W_From_To_Chart[j,Rows]>0 then
6 P+ M5 `4 I& r+ x                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
1 o; b; h0 t3 w% i* A. w0 d% j9 M2 m) p                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
. Z2 `" z- y8 w- `) A- J                        PartsTable[3,Lines]:=sprint("Parts");
, t2 [. s/ h2 Q. A& _5 |- q: p                        PartsTable[5,Lines]:=Rows;
2 C# N! W% C1 P  t                        PartsTable[6,Lines]:=j;
, t& y5 x7 v9 m                end;
        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;
/ e+ U  m6 J' j) [        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
3 \: |( X, t) b7 M" m" a2 O8 C        Machine.ExitCtrl :=ref(Leave);
' F/ s6 S, q# I( t9 k- f3 Q       
        BufName :=sprint("BF",Rows);
$ G& X1 t0 J: H, s+ L* p" @- h        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;
3 Q0 g) s, E$ i% ?7 S7 v' j        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
& M0 t9 c: D* I# {5 C1 w( k& z, Z' Z        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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