程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
6 }* }$ F1 x$ ~- i) Q1 Q% Vis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
9 L5 I, @: g4 z0 t- T" [2 l* X# ~0 m        Machine,Buf:object;
4 N; ?% w7 ~; [$ Ydo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
) f  V6 H. G( @0 i+ L+ I6 @+ r                        print "Yes";
2 b% \6 Q: W7 N5 S7 z                when 32 then
! }8 E: @8 o& {  N( |                        print "No";
8 ]8 U4 y4 K( E                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
3 U3 E- T' C' {& m  Y& q( h  \                if j<i then
* a! g5 w1 v; w                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
6 m% l$ x' l4 |0 D5 X: m5 r                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
( }5 m1 l- L5 i# n# k8 H2 u9 x) E% o                                if D_From_To_Chart[j,i]<=0 then
+ ~7 `4 n% a! ?6 [0 x* k9 }: V8 v                                        messageBox("distence<=0...,",50,13);
( w. r8 B+ H: q7 m1 u# a0 z1 C                                        EventController.stop;
                                end;
                        end;
3 q* f$ ~1 Z. S                end;
        next;
* G. W$ d' O! W! \# H0 ~next;

( T4 R& a/ A. J5 g7 W! f$ Nend;

+ m* b5 T  {7 F2 m+ k    Lines :=0;
4 U& C/ N' b& I, q2 ~        for i:1 to Number_Of_Machine loop
3 x* h8 e) J! c        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
- l4 m! i/ b5 `        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
$ M) V3 C. @9 n$ U0 U$ L2 A                    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];
1 O5 i1 w' K, O2 ^                        PartsTable[3,Lines]:=sprint("Parts");
: e- V1 c, i3 Y) ]- }                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
0 M+ s- s0 f& G                end;
        next;
) X  W6 _9 N, `# h. g* H        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]);
        Machine.Name :=MachineName;
5 g+ F" `3 r+ g) }, o6 I        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
2 E( [3 x9 _% p* ]8 V        BufName :=sprint("BF",Rows);
% o# k) H; d' j/ b) _2 K5 F        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]);
; \6 V8 z: h9 X8 ]                 Buf.Name :=BufName;
6 y& D7 p5 Y+ ^" g        Buf.Capacity :=5000;
! C. A- i  y+ j$ J& D0 t        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
1 S9 S6 ]1 ?) D2 M5 vend;

五五

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

wudi

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