程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
- {' X4 M7 W' v) [        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
* t) x2 V, |6 y( h) R        Machine,Buf:object;
: M/ j( I+ E8 ~4 x. O8 Z6 O/ e$ ado
        if Number_Of_Machine/=D_From_To_Chart.YDim then
. x0 ^' Q) s4 C* d+ X                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
# G. M4 H+ y  J' {& U  F5 [/ \                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
' G* c$ a- p! S, P; o        EventController.stop;
end;
  W# _! e( @, @PartsTable.delete;
6 d, M8 {( }. ~+ s$ W, [7 zfor i:=1 to Number_Of_Machine loop
  y+ q; D2 C" ~4 W        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;
                else
                        if j=i then
* _/ b2 \. @3 n: i9 g) Z                                D_From_To_Chart[j,i]:=0;
                        else
  f5 v! C* V2 y0 z+ ]5 n7 C' t                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
5 s- p  ^+ v1 t& h                                        EventController.stop;
! ^  p) p4 A$ k# ]; d                                end;
$ V8 y, A4 A! h0 @4 R) H                        end;
                end;
        next;
next;

end;

: X: A( X$ n1 p% w    Lines :=0;
& b" Y% f' g. Z        for i:1 to Number_Of_Machine loop
3 x6 u+ D4 E9 s        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
. F2 ?: H" }- {* p3 u' Q1 v+ T  ~            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
8 Z' i- O0 H+ o7 _. S: E) @                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
+ n' c( y6 n& f  a& f- [1 d' q0 u9 ?                        PartsTable[3,Lines]:=sprint("Parts");
, }$ m, e' _1 G, S0 {" d$ x                        PartsTable[5,Lines]:=Rows;
/ W, ]9 F) |2 g+ M                        PartsTable[6,Lines]:=j;
                end;
* U; T& U: Y1 z* @9 V3 O        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]);
: j6 X' x1 U# l9 `9 L# J        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
2 T, p: w: c. m& r7 l" Q        Machine.label :=sprint("machine_",Rows);
8 K2 G) }  N$ F( a: m8 [) e        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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
5 u* `3 [/ E8 T- J1 B9 Y* E        Buf.ProcTime :=0;
0 A  ^) {: B0 C5 G! e, P$ v: u        .MaterialFlow.Connector.connect(Buf,Machine);
* b" f6 I, |! ~% p) }1 A5 B% F0 |9 cnext;
9 t9 P4 O7 l- c% r& `" \end;
3 w- t$ {7 \2 f3 K

五五

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

wudi

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