程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
+ r( d9 I# D: q# ]9 Kis
! E7 d$ t6 S# f: k        i,j,Rows,Lines:integer;
5 [+ t- ^/ b" R- M% y8 B        MachineName,BufName:string;
        Machine,Buf:object;
! A; s. o! o7 \do
2 g3 {+ @3 m7 O9 N9 ^" B        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
4 b0 i0 V: b8 c  t        EventController.stop;
end;
; K6 [8 f, c% I' j# rPartsTable.delete;
7 N2 U. r! c2 i" Vfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
9 z3 r: B2 |. f+ k3 l% u3 ]                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];
$ D( ]7 L% X5 ]                        end;
. O$ E# |; r( [  h( X                else
                        if j=i then
! S1 X2 S, k: {7 X+ `* Z. A                                D_From_To_Chart[j,i]:=0;
; d' Y8 C* _. {: G                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
: U; y# }6 t; h6 U                                        EventController.stop;
                                end;
                        end;
                end;
  }7 p0 n/ t* d1 L4 Z6 e: e        next;
1 [" E/ Y8 y& a  {; L3 c% I* ~5 rnext;
: \0 V! L! J5 j
: r2 U$ [7 _3 pend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
0 H9 f" \+ n9 U            for j:1 to Number_Of_Machine loop
# f1 L9 ?! Z9 i7 }; _                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
# x9 n% V# p) {& p" |                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
9 o" e% l1 m" ?                        PartsTable[3,Lines]:=sprint("Parts");
' g9 \, e4 l; |# \                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
  W  [2 w9 {0 ~) z; t                end;
9 Y( R/ |5 _; Q0 I/ v* r0 E; O. e6 X0 |        next;
        MachineName :=sprint("M",Rows);
5 v8 |0 g3 Z  \5 {1 n        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]);
7 a, y( a. k( W9 c5 u9 K: I* _        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
* _+ b* s: E1 ^# M- P        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;
/ |- S0 ^3 z) l* r, y; B  k& h        Buf.ProcTime :=0;
' g$ P& E" g$ _/ l) O5 U1 V8 A! |        .MaterialFlow.Connector.connect(Buf,Machine);
6 q% U& a5 Q% f( l  pnext;
$ E" y, Y$ l- n( eend;
" ^  {* w3 U9 E5 i" e' Y! ~6 M

五五

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

wudi

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