程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
+ f$ F- `! e; E2 A3 Tis
) ]* d! _/ N7 y6 h6 u& }        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
# `; J' P, G. q) B: p5 h" o% S+ J( C        Machine,Buf:object;
do
7 @7 i1 e$ W$ _2 p& r" d        if Number_Of_Machine/=D_From_To_Chart.YDim then
0 {6 }2 u7 x  }; ]" w) d4 o                inspect messageBox("Number Wrong...,",50,13)
9 x) `# Y+ v5 P  m7 Q                when 16 then
/ g3 I) ^2 x" k2 ^, P, n                        print "Yes";
% G9 B2 w8 c7 O' y. T* H                when 32 then
                        print "No";
- B' k, L) V% ]5 x                else
4 T2 @5 U: r+ g" i" `                        print "Cancel";
: W9 t, }: _2 A                end;
        EventController.stop;
end;
9 N  A: M) R8 A1 X0 M- T; t, BPartsTable.delete;
for i:=1 to Number_Of_Machine loop
0 B7 q  c& P1 V0 a7 ~9 e        for j:=1 to Number_Of_Machine loop
                if j<i then
' Q, A8 h( h1 v9 R  r- g- L/ z                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
( M" K. c1 X0 `" z) _/ ]% J                        if j=i then
: U- j: U+ U% S- i' b& d                                D_From_To_Chart[j,i]:=0;
                        else
0 q0 [/ r& i7 i, i, q2 q                                if D_From_To_Chart[j,i]<=0 then
7 S/ D' N! W% L4 ], J2 X: T9 a                                        messageBox("distence<=0...,",50,13);
6 Q* z, P0 r3 B5 q( d* A) A                                        EventController.stop;
+ \; {; c* A' }( q$ _                                end;
                        end;
7 b. r  s: t. J                end;
) _1 d* ?4 D5 C9 X        next;
/ j( Y3 ~& @; B5 f/ \+ Jnext;
) K8 {3 r9 p' ?! ?
end;
9 C, A) Q% l8 f6 H5 i2 h
    Lines :=0;
        for i:1 to Number_Of_Machine loop
2 B# }% |2 U9 C( U9 E        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        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"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
' a6 I+ Y* h4 D- \4 |* m                        PartsTable[5,Lines]:=Rows;
9 N0 Z7 k0 N* c/ T: I" R! T                        PartsTable[6,Lines]:=j;
, K) Y4 S1 T: [1 ]+ ^                end;
        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]);
* H6 K" ^1 |3 K( d0 t! S4 R        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
3 \' _/ J0 k8 ~/ `        Machine.ExitCtrl :=ref(Leave);
       
% z3 }' j1 H* D$ t3 Q( z        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]);
8 U+ w( ^4 Q8 \7 q6 T% A3 _                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
$ y! t1 X6 D+ o% m+ P' l        Buf.ProcTime :=0;
# V% m, M3 I! A        .MaterialFlow.Connector.connect(Buf,Machine);
next;
5 Q) @' Q* u& b- p1 [8 cend;

五五

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

wudi

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