程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
+ v% w/ o: g. x/ T* K        i,j,Rows,Lines:integer;
- O( r+ J$ u9 |( ~% H/ v1 G        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
. S3 A3 H# J. J0 B% \1 i) I5 x/ h0 b                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
# y1 a" M6 _6 F5 ]                        print "Yes";
                when 32 then
6 N: s( v# }1 w  j- D6 p  ]  C                        print "No";
                else
                        print "Cancel";
4 m: F7 E4 g1 R; V                end;
- ]1 s3 {7 e. A& `: S# @7 x/ T        EventController.stop;
end;
PartsTable.delete;
$ p* ]$ x  F2 c% T/ y" @for i:=1 to Number_Of_Machine loop
" `% J  n% p- i- _        for j:=1 to Number_Of_Machine loop
0 u3 `) p8 Q6 W- }$ G/ \4 \/ I                if j<i then
+ c% ^5 Z7 n! E5 O0 G                        if D_From_To_Chart[j,i]<=0 then
5 _6 s9 f9 w; ?) Z& O- |& P                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
* g2 u7 G% j, o4 C                        if j=i then
. X! y, D8 B9 M. ?/ \) t                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
! |/ M/ p) j5 A& C; y8 Q" v$ L                                        messageBox("distence<=0...,",50,13);
5 f; F; F: d' \& U, i                                        EventController.stop;
                                end;
                        end;
                end;
+ r9 O6 E! W, q6 P" ~        next;
. q- h5 U7 v8 H3 p3 _. Vnext;

9 c3 t4 k8 G# e/ S7 j6 iend;

' N9 `" L& V8 ]% Y& V* h: P    Lines :=0;
4 [- |: K' B! I% Z8 E" o" U7 V        for i:1 to Number_Of_Machine loop
2 b0 O! Q6 c  ^8 b3 l/ ?5 S" l5 @        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
& h( s8 s1 b9 G/ c, N5 }- A            for j:1 to Number_Of_Machine loop
5 V; O- L0 t- V4 l' b: m. O# y                    if W_From_To_Chart[j,Rows]>0 then
, r( M6 p. O' k0 V4 o                            Lines :=Lines+1;
' k/ J% m* I  h+ R4 j) O                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
( P; k+ R5 s+ d) U! v                end;
        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]);
6 ?8 D# _7 t- ^2 t) V        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
' T" l6 i: m1 H) o( ?' I7 i2 w9 \        Machine.ExitCtrl :=ref(Leave);
       
% J' w( u% W* Z- C# n6 R, z7 X        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]);
/ M5 N( q' C& X! n% b                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
, x  h7 a: x5 z9 Q, G+ F        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
& L! B- a) m* e8 \0 \0 i; g) q) q. Qnext;
end;
) ~; N: Y/ @+ Q

五五

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

wudi

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