程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
% B4 |3 Y% m+ l( ?, Cis
        i,j,Rows,Lines:integer;
9 x4 ^! o1 g+ }  K8 _        MachineName,BufName:string;
0 a& B& O3 W9 K& I/ I# R        Machine,Buf:object;
3 U8 r9 z4 D% _, }9 [8 D$ Y. Z, kdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
6 o- u1 \& R0 Q" E5 }% Q                        print "Yes";
# c/ b# q; }9 ^) s' b  r- E, ]                when 32 then
' }' U' e4 G8 y7 I                        print "No";
- U) l$ }3 e- z                else
+ n& F% x: g4 G! k                        print "Cancel";
                end;
8 h0 I+ Z) v5 V2 ~5 A0 P- C        EventController.stop;
4 X6 E, u. t$ h: @end;
  R6 m9 {" @+ QPartsTable.delete;
  P$ h1 O$ U9 {# M4 Vfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
8 @. i+ O5 @: N) T                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
( o0 V, w5 l: h7 ?                else
5 B, o4 g5 N( C                        if j=i then
/ @1 i" H& E7 ?+ @, @+ H+ ]                                D_From_To_Chart[j,i]:=0;
% B, k) G3 T3 B                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
7 v+ X: b0 G7 Y* Y3 {2 r, B2 |                                        EventController.stop;
6 Z6 a" U, _' `                                end;
. u8 ?' B: Y. r                        end;
                end;
- e. H& t+ |. ~. Q% O; c# R        next;
next;

end;
8 ^5 D8 q* w: `. n9 B
  u3 E  }4 L- ?; y. x    Lines :=0;
        for i:1 to Number_Of_Machine loop
7 @. M3 P! m/ y! |! Q( h        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
! F, `2 k7 K1 m- Y. N8 s                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
! H$ D5 s: ]) W$ z7 K  ?, f- ?! K                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
8 s! X  }( x  H- Z7 m. h                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
' A3 f% U3 O% O* {- a                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
  f  T* v  N7 V- k                        PartsTable[6,Lines]:=j;
( w0 K* ?7 _- M$ ^8 x                end;
        next;
/ B/ K9 ~9 y' B, K        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;
2 ~& p* j! I, S7 @% y7 [        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
8 H' J( r. F5 F        Machine.ExitCtrl :=ref(Leave);
       
  @: F. c$ {) w. z* l        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;
' R) D2 I0 `1 D0 I        Buf.ProcTime :=0;
6 L9 Z7 Z& h% S# d5 e        .MaterialFlow.Connector.connect(Buf,Machine);
8 \# F$ b1 M, w2 S4 n& P$ B9 }3 J$ I, wnext;
end;

五五

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

wudi

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