程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
. h1 u: J( l  O& S# Zis
, q2 x8 i8 C, n7 A+ v3 D& p& Y        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
& C8 D8 _* g! C3 z+ {! T        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
% H& F+ y8 J/ m5 Q1 U                when 16 then
, S+ t& ?4 k1 _7 e7 B                        print "Yes";
                when 32 then
                        print "No";
! e; d' J7 E) H0 n                else
                        print "Cancel";
/ i- I* U/ L/ w. x+ o% p, S  \# I                end;
7 n  d; D4 O* u- F        EventController.stop;
' ]3 m5 A/ [/ b1 \% n9 ]3 v: h# \end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
( _5 }5 Q7 G/ w8 s! c( g        for j:=1 to Number_Of_Machine loop
: ~. l7 ?6 b. [# ^$ U& k                if j<i then
9 _) X5 J. e- m+ M                        if D_From_To_Chart[j,i]<=0 then
: L% v2 h1 ~3 L) n* X% [                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
1 ~/ {" l% W) W                        end;
  ]$ p- @5 h4 u- \                else
                        if j=i then
; O8 l3 O( n& }" e, R; b1 j7 x                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
  o* I( }8 R$ |$ A+ I9 b) B                                        EventController.stop;
                                end;
                        end;
                end;
. i& _# T/ g5 E/ g5 Q        next;
/ b  X. W: k  S* x% d# `next;

end;

3 t$ T8 |4 b" F1 W0 ^3 h- n    Lines :=0;
' f  J3 i+ j* D1 B! v        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
+ g) d" v/ Q( w& g        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
$ B( m5 t& v5 k- t6 h2 C                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
8 F; V% v  t: i6 O                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
& e1 [  e1 V: T# V3 Q                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
+ \9 M/ V. P5 N( S        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;
4 y: P- N1 r" v) ~5 B3 S        Machine.ProcTime :=5;
3 |5 K2 o2 H' k0 M! ^        Machine.label :=sprint("machine_",Rows);
0 r2 ?- g! S+ b4 V7 P* W1 q* ~1 u        Machine.ExitCtrl :=ref(Leave);
       
        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]);
0 y! Z& B0 _/ d* k% e7 |# p& X( Y, ~                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
+ Z0 U: A- v4 o9 n0 X! l% r8 j        Buf.ProcTime :=0;
* K, B3 y- S5 J& |  t& J9 u% l. B        .MaterialFlow.Connector.connect(Buf,Machine);
next;
5 J/ h' d4 V* V+ z: r. |4 g  oend;
4 o4 X! H  t1 g$ T7 O: q" e

五五

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

wudi

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