程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
3 z; B- M- z. H9 \2 l* i& [- Kis
        i,j,Rows,Lines:integer;
9 N( c2 q+ P2 Q- [        MachineName,BufName:string;
( z; u3 L  e3 Z9 A& P" k' q* P% A        Machine,Buf:object;
  ]# z$ U. E( W0 P1 n2 V0 fdo
+ H+ F: @" {, q/ s3 H4 L; d, r        if Number_Of_Machine/=D_From_To_Chart.YDim then
" X/ c; S- {' u* p- v- O0 u1 q# M                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
+ b( {' e2 ]8 P' y$ X  W                        print "Yes";
                when 32 then
. o5 z* F% B2 V* U8 R( J; g                        print "No";
6 H# A- f2 i" A4 u% b2 {                else
/ ]( @$ v6 N+ l5 z) t! I                        print "Cancel";
                end;
; `+ O& m) L/ o  T$ I! W, S; k        EventController.stop;
+ L" M) D8 G8 y' D/ l- Gend;
PartsTable.delete;
2 m$ e, R3 |  }4 E2 }* d) d2 |for i:=1 to Number_Of_Machine loop
2 P+ N$ J9 _& K: u0 B3 B& F        for j:=1 to Number_Of_Machine loop
' m0 i! Y$ f" n2 y                if j<i then
4 B3 p* b6 w7 b  }8 ]1 x                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
5 _- ^' s: L3 r5 A                        end;
1 H, }! C: E% c* L; s                else
% c/ ^# j- [# g% y5 ^                        if j=i then
1 l. _$ M- R) }7 v                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
: w8 m* N% |1 G. M  `; u; j                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
$ N! p9 L9 S- e, |  h7 Y; x/ a                                end;
                        end;
3 j  b6 h$ ^2 V/ F                end;
        next;
  ~0 B8 t, `" E! W7 Gnext;

end;
% X8 D3 J( U$ T0 M9 {! ~2 F5 b
- w% w7 s1 B# e! a' S8 Y    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
( J! `" ]& m1 }5 [. ?: S                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
0 N7 i! }2 T# ?2 n                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
/ q. I* J) b' O7 I/ D8 J% }8 _                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
& N% s7 v- s2 P5 A! b/ S+ v                end;
        next;
        MachineName :=sprint("M",Rows);
$ s  {$ l/ h  [$ b        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;
+ c# y  `8 }; C" Z% U        Machine.ProcTime :=5;
2 U4 T, ^+ g2 w% |) v' P# S2 I        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
( _) M* I& n0 e+ Z5 s/ }       
        BufName :=sprint("BF",Rows);
: W! L4 i( p. g# S/ ]: ^        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;
        Buf.Capacity :=5000;
2 k! `! e! h6 |7 n% C2 r        Buf.ProcTime :=0;
/ f. e* i; y+ L7 ]5 |        .MaterialFlow.Connector.connect(Buf,Machine);
4 |. e! v* [9 knext;
end;
" t. N) a/ J& ~& X, W

五五

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

wudi

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