程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
% Z% R! ^4 D& S" Dis
& t( G% q; l0 |+ Y        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
  F, ]4 p; r+ e4 J( s        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
8 F& Z$ w8 d- u3 {; U# C                        print "No";
- H2 m- O: [: O) T                else
8 r8 f- p, T$ @( V4 H                        print "Cancel";
                end;
        EventController.stop;
end;
0 v; e+ z0 c" I6 h0 vPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
, O9 C1 o+ A* A+ B  Q5 j. m8 L  G                if j<i then
9 i3 V0 T  c2 S; b% \                        if D_From_To_Chart[j,i]<=0 then
& H, g* y) v8 k! S                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
# j* a5 Y# l8 ?$ b+ q5 Y( J2 k                        if j=i then
                                D_From_To_Chart[j,i]:=0;
, K& t9 |4 e) ]3 G% R                        else
  w+ z& h+ Q3 I1 Y1 d) T+ \3 f                                if D_From_To_Chart[j,i]<=0 then
, Z* F; a; ?. }$ i2 O* `4 R* ?6 }                                        messageBox("distence<=0...,",50,13);
7 F' M3 b+ V8 J                                        EventController.stop;
                                end;
                        end;
                end;
9 }+ R9 E9 N, I; S: a        next;
- i- n8 h/ W/ V( G9 S5 @6 Ynext;

0 i+ E0 N& W, U% H  ]end;

: r2 P3 K$ U+ N  U. {5 ^    Lines :=0;
8 ^( a. v9 _! u        for i:1 to Number_Of_Machine loop
* U( O0 z7 K' c) L$ O* S9 t        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
+ S" Q5 Y5 ]2 A" j. e+ i5 Q                    if W_From_To_Chart[j,Rows]>0 then
0 S2 a7 W- d$ [8 C                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
1 `- b% j* r$ t4 g. i1 L                        PartsTable[3,Lines]:=sprint("Parts");
: a9 h$ B2 i  G; f& |5 H$ Q                        PartsTable[5,Lines]:=Rows;
3 d4 ~. O! s) f6 Q( s- n/ W                        PartsTable[6,Lines]:=j;
                end;
9 {# i& I8 F/ y1 d% F# S, y0 o0 O        next;
8 n! S6 F& w# J  Q. e        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]);
) T/ i  Z5 l: ^: l( l9 G5 b        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
# O4 L4 j: a  S: {        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
+ c* f  t2 @0 r  `4 U$ i! T        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]);
* k1 j6 m- h* t$ i$ \2 P                 Buf.Name :=BufName;
8 x. t, ]4 T9 E5 S* c        Buf.Capacity :=5000;
5 {; g: y( \) D5 B/ J8 j9 z) X        Buf.ProcTime :=0;
8 A6 k3 I9 n+ \; V+ P6 S        .MaterialFlow.Connector.connect(Buf,Machine);
) a% u1 V! G' @" L& p: @! r7 `! Knext;
* M0 E' C; [( U6 Nend;

五五

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

wudi

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