程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
6 F( m7 Q3 ^- O; z4 m5 v! o5 l0 x' tis
8 P; [* [* j9 k- {) h& d        i,j,Rows,Lines:integer;
+ |4 ]5 G5 k- O) q: k        MachineName,BufName:string;
        Machine,Buf:object;
+ U+ S4 K* R& |, u7 T# a8 ^( q7 Z# P3 }do
, k# k- j9 E, O: j" Z9 ^        if Number_Of_Machine/=D_From_To_Chart.YDim then
' k2 Z  }+ `% i3 t. ]8 |                inspect messageBox("Number Wrong...,",50,13)
0 [: y0 I9 G# {2 D7 e7 r* r                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
& t3 u0 J5 L3 A4 p$ S                else
9 @1 S9 p% [5 y! E8 U& k' u( X                        print "Cancel";
, P+ I3 H. B- H; y0 g                end;
0 x; e0 |) {6 Z/ J3 t( U/ i        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
# `; F) a' a6 f                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;
# {" v  U9 }* }0 S; c, d. V                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
  m. e  \9 ?) V+ D) p1 J                        else
$ v5 k% X. z, ?* j! b                                if D_From_To_Chart[j,i]<=0 then
: q- W7 G( ?& e2 H, B$ ]. {                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
! e" S6 c8 |- D, T                        end;
2 [1 A' h# C8 _9 s" X% s                end;
% g+ e, {9 b8 v- f        next;
next;
, l5 L6 ~8 c/ t( F2 ]" J2 `; Q3 r2 C
/ {6 L8 G& c4 F" {% iend;
, y( J) J2 {: G/ D; s$ r% Q* Q
; t3 u( S5 {1 n9 x  g% j    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
+ Q$ j6 \9 i+ c4 ]* H        MachineSequence[2,i]:=Rows;
) V* F* x7 g, y5 c            for j:1 to Number_Of_Machine loop
7 N8 t5 d5 C/ Z% K                    if W_From_To_Chart[j,Rows]>0 then
: x4 c( b# N3 I                            Lines :=Lines+1;
8 m( F2 Y5 Z6 J# `* i                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
5 R8 O. D( G. y# n                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
7 ~) w# a  m% o' d- ~                        PartsTable[6,Lines]:=j;
/ }) s$ t1 g, n: G7 U6 o1 V; ]                end;
        next;
+ c! W7 ?* V+ s6 K7 I& _        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]);
7 ?4 G3 `! z) M/ e4 q4 R        Machine.Name :=MachineName;
/ _3 ?( n4 C1 C6 e% K# C        Machine.ProcTime :=5;
3 N* f" }& B5 w        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
* E& Y7 {5 p- k        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]);
& R4 _# Y* t+ a; z" i                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
# k8 i. n1 X) W: J5 S* pnext;
end;

五五

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

wudi

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