程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
# k6 C; [2 V4 X4 K7 [do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
  t4 I* n' b9 ^8 Y1 _. f                        print "Yes";
8 f0 N* N% ^: b2 R) P                when 32 then
% K( J; F( D. R- ?. r3 ~# w                        print "No";
2 q/ M, P( Z& {                else
* I$ d1 m0 E6 D- ?$ `4 |                        print "Cancel";
" n: G$ L# _& K+ y( D                end;
        EventController.stop;
" m5 K. @7 f5 h, H  tend;
! k" ~% i, C0 @( q0 G! ^PartsTable.delete;
for i:=1 to Number_Of_Machine loop
* A& a  S1 T5 C        for j:=1 to Number_Of_Machine loop
                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];
                        end;
                else
# Y- k6 M1 j# Q' Y# h' H                        if j=i then
                                D_From_To_Chart[j,i]:=0;
* N; u# ]9 Y8 Z1 _                        else
/ S! w6 u. `" {# [" X' E  E- U, i                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
7 H, y' g# m& o+ \8 M                                        EventController.stop;
                                end;
                        end;
: d$ {( K/ e2 ~6 l                end;
        next;
: A* J, g% Y2 q  inext;
* y1 B9 }" u* ^. |: I# d
+ w$ H" N0 A5 N/ r! C! `end;
# u+ E3 ]( c* Q6 _; w
7 t( y# K+ D' @8 u( }" m  _6 z    Lines :=0;
        for i:1 to Number_Of_Machine loop
! p/ j0 k& r1 }7 j" o        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
- e) L7 n4 L: p+ e5 b4 _        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
; l1 |8 v- I$ B+ z! j9 c* W                            Lines :=Lines+1;
" Y4 Q: e  Q' q                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
+ D6 Z6 i; e5 T5 |1 i4 j+ C9 A                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
% R4 k+ ~! b% v* m& s$ N                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
( t& h7 ]; Z" x- j. ?9 I0 g9 T                        PartsTable[6,Lines]:=j;
                end;
1 F- H% U9 ]1 q4 R/ m        next;
) G0 L5 {/ a2 p4 ?        MachineName :=sprint("M",Rows);
0 H( H; `1 B, _        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]);
- v+ t/ F  V) i9 a0 r. g        Machine.Name :=MachineName;
2 z9 X6 j2 [$ n        Machine.ProcTime :=5;
& u* |% y& W, K; W- S) |, K        Machine.label :=sprint("machine_",Rows);
) t- w) `) `) \/ k        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]);
$ S  ~/ _& B5 g% ~' o+ o7 a                 Buf.Name :=BufName;
) g# u( a1 c% f. C) s        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
" r1 C$ N4 p, T+ [  W, }# w0 m( P- c3 x        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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