程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
' f' e3 v9 u& [( `3 X$ E: h& X        i,j,Rows,Lines:integer;
% h! l: K# w5 F: r, i        MachineName,BufName:string;
        Machine,Buf:object;
& r$ |/ N/ L" a, {8 d. q. t( A, ado
        if Number_Of_Machine/=D_From_To_Chart.YDim then
: ]& M# i5 h3 N$ \- A                inspect messageBox("Number Wrong...,",50,13)
8 M) \. E: L5 @! ]: I: y3 ?. Z                when 16 then
2 ]4 i/ ]' H8 q, o" j- D9 M( |8 ^                        print "Yes";
                when 32 then
                        print "No";
, |4 O/ q1 ]! Q& c, I3 D                else
' l7 ~$ r2 s7 B5 C/ P                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
+ g" t; j" u+ {3 e9 q1 D5 i4 s        for j:=1 to Number_Of_Machine loop
( I1 }0 J4 r1 B; p2 L/ R                if j<i then
9 f  r  U  {  j                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
9 l- a) a4 [+ [4 k6 i5 W                                D_From_To_Chart[j,i]:=0;
& d+ ~& u6 }: u' V                        else
- C$ i' S# w# @  P  p: ?                                if D_From_To_Chart[j,i]<=0 then
2 j; g6 y5 C+ u+ u+ f2 v                                        messageBox("distence<=0...,",50,13);
8 F, t" h7 g8 g: s, ?                                        EventController.stop;
( q  R* E* D0 Z! E                                end;
: M: @' R4 A+ y9 w9 H# m( ~1 F' E                        end;
                end;
: l/ \8 u5 [. L- F        next;
next;

end;
' K& b$ U# q/ T- I
+ k& @$ X# w" E# }    Lines :=0;
        for i:1 to Number_Of_Machine loop
4 S; O8 O1 ]$ G- g        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
4 @6 i) v: l) m* J* C            for j:1 to Number_Of_Machine loop
  Q5 z9 Q! e/ ]/ v6 L4 ]                    if W_From_To_Chart[j,Rows]>0 then
$ j6 [' [- {, W/ C9 V+ g                            Lines :=Lines+1;
$ Y4 d, z: O) b# f4 R! `                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
) U2 I& ^" ~/ p& s$ d0 U! d                        PartsTable[3,Lines]:=sprint("Parts");
: [/ u: x* n$ n. f: ^( G: N                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
7 G* ?9 e) }% K  [2 R$ V        next;
9 }5 t, V3 s* N4 `' C1 H) Y        MachineName :=sprint("M",Rows);
. |$ P7 }3 U2 r8 E- M  Y9 q: A0 R        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;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
- H) _; s+ |! b6 F! d/ v( j3 g       
1 y; \7 j6 f7 _" y% _' J        BufName :=sprint("BF",Rows);
. Y3 @+ P, T3 e6 {+ q1 V8 _0 p        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;
1 `+ m) m6 {* u5 Q        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
6 B: ~* F# M2 I, I        .MaterialFlow.Connector.connect(Buf,Machine);
next;
9 u! u0 @  B/ {end;
1 p9 X- ^: Z2 A  `4 \

五五

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

wudi

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