程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
9 P4 ]. a7 c7 his
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
8 {( \' E. B6 [        Machine,Buf:object;
do
) v% d  O' U2 T5 M1 Y7 C        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
0 X) _2 j* ^% Y# X0 N- @                when 16 then
8 }, `- U7 w- p- v9 t6 K8 V                        print "Yes";
, r- s+ m& |+ l/ z3 I8 l0 ]                when 32 then
8 M; S2 h, Z* B5 Y: ?! }4 B                        print "No";
                else
6 W9 Z* l9 B  c+ x7 R                        print "Cancel";
                end;
4 g1 w$ \2 v( c- g. L* m* ^7 ~" T        EventController.stop;
end;
5 R4 q) b6 m! L. VPartsTable.delete;
/ S1 Z; Z* D- h8 h' g% ^4 wfor i:=1 to Number_Of_Machine loop
1 G8 L( a' U8 z6 b        for j:=1 to Number_Of_Machine loop
0 _! Q* D' M5 m. s0 L! O                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];
7 W; w6 l" o$ E                        end;
6 V8 l) N& g  s; `3 S- _/ r                else
* l) l- P! Q/ o/ h* d                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
, K0 L* Q% z9 i/ ]6 x0 U                                if D_From_To_Chart[j,i]<=0 then
- j% C: L9 F3 g9 }8 d! R                                        messageBox("distence<=0...,",50,13);
6 N) `1 t! W: c1 ?                                        EventController.stop;
7 @4 G' e! t7 A' N; _- e                                end;
6 h# |- M" {6 @+ Y                        end;
0 S* E9 Q* v( [" k! H                end;
0 n4 [8 a2 V% o* a        next;
next;

end;

) ?8 u6 J7 _+ F" K" b1 v    Lines :=0;
        for i:1 to Number_Of_Machine loop
: W* [7 [$ ~" f; ~1 B' o        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
* f& s. [. C/ b- S1 i( d        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"));
; k, a% \* Y0 c. c9 q                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
+ i# R" q; _3 \5 b# V" P5 k                        PartsTable[5,Lines]:=Rows;
9 N# b3 t8 Z+ S3 @( e% h% P- G                        PartsTable[6,Lines]:=j;
                end;
# `8 s( X# V; H& Q& h/ B$ i  R        next;
        MachineName :=sprint("M",Rows);
" ?+ S& \8 a$ J. r" E7 ~! W        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]);
3 |; h* D& K. ^% k( O$ p) K        Machine.Name :=MachineName;
4 c2 [3 l" N6 U        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
- z0 W3 X- ~4 `8 l       
        BufName :=sprint("BF",Rows);
  z1 z" `* a/ I* W/ k2 N        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]);
) L) s, {9 S1 |  B$ o                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
$ f6 r  L( }% F, D        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
; U1 D! u$ Q  H( Z0 Jend;
/ k/ {2 `7 g0 ]

五五

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

wudi

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