程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
) Z% J: [7 n7 Z' U! n" Ais
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
( K! Q, [6 G8 p* l* R! ^. _  L        Machine,Buf:object;
* A- G/ a6 t7 V$ s0 Cdo
0 T# u" }% m' I+ |        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
# G5 v% X% I  q: p- X1 i: Y7 I                when 16 then
( E* f& d* s3 j                        print "Yes";
                when 32 then
  }7 C* c  A: D: D                        print "No";
                else
- y. b, S2 p5 b4 C! R9 a5 k                        print "Cancel";
9 L7 Y* u7 v. d! ]. V/ \                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
) @' K6 ~; g0 }) S  C4 u                if j<i then
3 A; h% U4 D) i: {$ F+ j                        if D_From_To_Chart[j,i]<=0 then
' I% W$ o4 x& S+ D                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
3 A# B5 H- j7 t$ f, v, ^% Q                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
3 J9 @& A3 E6 O- |                        else
% d3 x/ s6 y6 V; Z( e4 A; f                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
+ @; ^" |6 }3 }! ^9 s+ w) L9 H                                        EventController.stop;
8 M( h: b# Q& k3 z, C# }6 k                                end;
; v4 R) j! ]  _4 |) c3 q                        end;
                end;
        next;
3 @$ O& _6 x; U! {! P0 [3 {next;
# R5 [5 Y: E4 i0 S  g; m# W4 I
end;

8 a$ N" C/ q- L' E, W    Lines :=0;
        for i:1 to Number_Of_Machine loop
! J7 _* k' h: A" [  M        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
. G: f- ^2 o. U* k; g7 B+ F5 }            for j:1 to Number_Of_Machine loop
: u8 T. ^9 _: Z- U( F( b; o                    if W_From_To_Chart[j,Rows]>0 then
; V8 Z$ K0 {3 [! [: t                            Lines :=Lines+1;
& [* D- L; {+ |$ b& T                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
% K+ x* P& ^. `) r: U                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
4 I. _6 t- e9 P0 b7 G6 ^, P                        PartsTable[3,Lines]:=sprint("Parts");
* @! f6 c# t) {                        PartsTable[5,Lines]:=Rows;
$ V. K: I% A/ v- f& }                        PartsTable[6,Lines]:=j;
                end;
7 c  W# U/ g- O$ A# H! ]* h  ^# D        next;
8 p3 o7 R+ C+ |" \2 n) ?6 Y        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]);
4 T# H0 T9 \: t$ B2 f6 S0 T9 e        Machine.Name :=MachineName;
0 ~  l! z1 D8 ]$ F& g' T        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
6 R; Y) m7 T7 F* n        Machine.ExitCtrl :=ref(Leave);
       
3 E6 [3 T  u& b! ]" ~0 I  J$ ?$ T        BufName :=sprint("BF",Rows);
; w4 }% d* R6 _        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;
2 k3 A  h3 ~5 f' G+ A, {# R        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
: j5 G5 v6 I* r) R( o6 _        .MaterialFlow.Connector.connect(Buf,Machine);
5 E3 h% G5 |) A- \9 I% gnext;
5 V0 v( F% h: E, jend;

五五

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

wudi

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