程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
: M# [$ {+ M" p3 n0 n7 dis
# A4 m, S% X8 ]$ f        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
/ ~2 [( a( H0 ~9 l0 w2 R. T3 s3 a                inspect messageBox("Number Wrong...,",50,13)
4 a& s9 \) U# \                when 16 then
                        print "Yes";
0 j' b; C- e: ?4 x3 d* O( J                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
$ I2 Q; c$ G9 d; d* U- sPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
. Z0 u8 m% r; e" }' n* S                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
, i9 f7 x7 U& `5 n                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
: {8 G: c% O4 C. o                        end;
; l: u/ }, m. U7 v                else
3 M7 T9 E8 t; e6 u+ t, z% R# @# H                        if j=i then
$ n5 {9 a8 {9 A/ M3 y                                D_From_To_Chart[j,i]:=0;
5 y/ a. y% K7 P/ t5 i& {* V                        else
: S8 `; }! M# i* @0 R                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
2 H) s+ [8 u( x. V- ^                                        EventController.stop;
                                end;
                        end;
                end;
        next;
# E3 n6 X% A% a/ Y' T1 ^1 dnext;
; r- ?: q; S& T( [6 D7 G
end;
4 O8 e7 {* Z% A- L1 z3 _  c5 i
    Lines :=0;
* s0 w! u/ ]% u+ G        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
+ x% @. T5 {# \; I5 @# Q4 [$ K' n& [+ L& Q                            Lines :=Lines+1;
& h% }* X* `" H2 P                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
* x- M+ Z' ~7 b  `/ t* Q8 K5 f                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
1 Y/ w' p: Q  h3 Z, \                end;
        next;
* O' z5 B( s3 @& _8 `0 |9 R        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;
5 F, a" X# X) z' j8 c' l9 @        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
/ U' K! S6 p7 I- s: N       
) U/ Y7 N; e3 D+ T8 t0 D4 J        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;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
8 [) n6 u2 m( @' K/ v. F* mnext;
  F( E) R' G9 `' Bend;
+ I/ U7 f* n% W4 Z0 F

五五

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

wudi

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