程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
  i9 a/ U# Y# O9 Q5 U        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
$ Z/ E7 C! w1 _# L        if Number_Of_Machine/=D_From_To_Chart.YDim then
) e% b9 p! E% I1 N2 b                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
' X2 P9 q) `8 U' l1 ~. w- e5 h                        print "Yes";
                when 32 then
& O. ~- d: D# e4 v                        print "No";
                else
                        print "Cancel";
                end;
( J9 _" L$ y8 }4 k4 T" o4 Z        EventController.stop;
end;
, F6 v0 K* d/ K7 Q- G! sPartsTable.delete;
# c" ~  |1 x/ [& C* o0 Jfor i:=1 to Number_Of_Machine loop
        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];
* k. z( D) y2 g* S- U# p; |# c$ s                        end;
; f6 b! R/ x& A- F% h+ g9 O                else
; |7 z2 P! ^& W2 J8 G: }8 W' I                        if j=i then
                                D_From_To_Chart[j,i]:=0;
: \8 H7 W8 X* Y# Z                        else
% ^2 l) r4 N. j0 u1 P$ S' I, y4 }                                if D_From_To_Chart[j,i]<=0 then
+ f  R; V% i7 T' n7 x/ \! T8 \                                        messageBox("distence<=0...,",50,13);
, g3 E$ F4 A9 j, _/ X: R                                        EventController.stop;
                                end;
                        end;
/ r: t: y& [8 O" y- K2 f& K& ?! _                end;
        next;
  S- `. _2 B/ s5 W. u/ znext;
: C5 ^+ g- `/ X  O- v
7 z* P- y- v& ~8 F" g" B( }end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
! t. m& e2 v! z( m3 i6 i! _. Q        MachineSequence[2,i]:=Rows;
$ O8 K* f$ S! {8 O1 C3 N            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"));
: J; w( h# Z2 ?/ u* @- v# t( L                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
; z8 s$ p9 o# M9 T9 J                        PartsTable[3,Lines]:=sprint("Parts");
* B+ \! G( c7 f- [/ z* Q- r8 ~                        PartsTable[5,Lines]:=Rows;
% K$ ~; M/ N' @8 o                        PartsTable[6,Lines]:=j;
" T1 r/ z, S# y' p: c7 s6 o- f" i                end;
  ~! G5 a& y- `5 r        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]);
' c0 R- a, E9 B% x2 H: m        Machine.Name :=MachineName;
1 t3 m# R1 q# d; o9 H        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
$ Z& ?# b( \) ?. g3 Q, Y; x4 {# C       
4 Q% @7 c+ ~8 K4 F, x: x& h5 W& H, Z; t        BufName :=sprint("BF",Rows);
. ~+ I( s2 l( U# `' c- L        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;
/ V& L2 V+ _8 y5 e: _. C, C& {        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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