程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
: W+ W; y6 q' @; s        MachineName,BufName:string;
        Machine,Buf:object;
& V" s1 ]+ [2 E/ w6 E6 j, |- l; }do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
: l) X* B$ v+ L0 S) ?# p% N$ U                inspect messageBox("Number Wrong...,",50,13)
1 }; d( k; o/ h' K7 n                when 16 then
  t* `  h1 s5 `+ F1 O+ [                        print "Yes";
% O- O( b! o0 `5 Z8 U3 }                when 32 then
                        print "No";
- e0 R: O/ f0 ~2 A6 Z( _                else
                        print "Cancel";
8 W3 h. c1 ^6 u                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
/ o. K, ?7 q$ g                if j<i then
; ~* o3 X* @8 Y6 K6 h) i. u                        if D_From_To_Chart[j,i]<=0 then
) u$ j, w3 z6 o: @) ~. [7 V                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
7 W* x, k6 Q+ ]7 t                        end;
5 g; G. m5 ^3 O  S3 `3 O                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
" J1 p, J- C: s8 D/ }2 Y                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
3 Z5 W6 h# i2 s: k7 d( A  }- W* Z                                        EventController.stop;
                                end;
                        end;
                end;
' |' {4 _. Z4 i( n$ f        next;
- P5 ^1 s* |# ]0 H$ k% d% B2 S6 Xnext;
1 J4 e" M  H/ G: o# o6 O
# p, l# E7 `4 b: f9 r+ {& n+ aend;
' d7 z) s/ q$ E0 }' v1 i
: ]. b. o8 C- L9 d" w5 V+ Z0 J    Lines :=0;
- _7 I6 K( E- T/ S5 z; c        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;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
8 ]# s, A& j  R                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
) u! Q/ }' f# ]# Y! A; Q# a                        PartsTable[3,Lines]:=sprint("Parts");
, U  T* F2 H$ A5 C                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
9 Q2 R9 T0 @7 v5 t+ A0 O( G- q        next;
        MachineName :=sprint("M",Rows);
1 R" j9 a! b9 p$ ]1 \  C7 \& 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]);
1 s# }: Y. w6 _7 i* a        Machine.Name :=MachineName;
+ e4 G3 e) z$ ]% h        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
0 P6 g2 ]6 r( m1 x: R* G        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;
+ J. s2 M% l! I% S        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
/ }1 g* B+ z9 J7 v& W5 N5 ~, Iend;
/ J4 q2 k, I# ~; z

五五

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

wudi

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