程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
) O1 F4 [5 f$ N# p5 ais
: A2 h' O( y5 ?7 z% a/ b        i,j,Rows,Lines:integer;
5 Q8 Z) P& O7 G( @; }        MachineName,BufName:string;
        Machine,Buf:object;
0 i& x& @  X- T4 E9 F7 j3 Q( `do
9 F# H* ?7 h* i! A0 L        if Number_Of_Machine/=D_From_To_Chart.YDim then
$ M' s, N3 E; L7 k; n; a                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
5 d; V) Q: \8 \1 o* i0 Z; N                        print "Yes";
* h0 Y( T, @' ?+ _# d6 k                when 32 then
% [( E) O) y8 X( r  J8 m- p                        print "No";
4 r- e0 k& s8 ~2 G                else
                        print "Cancel";
( j6 l/ I8 q1 B/ o                end;
        EventController.stop;
end;
PartsTable.delete;
( a, U# H7 v  x( h0 L" S; gfor i:=1 to Number_Of_Machine loop
% o. H; k7 U+ x        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
- H" e2 ~7 e8 [3 D                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
# M3 F6 s2 s# O4 }, i" [# I                        end;
                else
7 ]% `/ L* Y. L; K$ l7 K                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
. U5 k) D- i0 \/ Q2 `                                end;
                        end;
/ t9 F* B+ Y! X) h5 y8 l                end;
' g( T- l2 D* X$ n& N9 Y+ N& F        next;
: L, U% Y' Y  P' O2 Y; e4 rnext;

end;

    Lines :=0;
; p7 G! Y6 r' a, I. Z        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 u9 g: v# H. G0 a; `        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
4 B; {3 t- p5 [0 F* u7 C: ^9 \                            Lines :=Lines+1;
4 C' L- A& K# A9 s0 `9 \* W                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
7 k  s' i2 s& r3 R9 p. ?3 m9 p                        PartsTable[6,Lines]:=j;
8 u2 i; c" i4 g9 D' T3 U7 |: h& k6 @                end;
& t6 X* q& N9 P1 G) B        next;
3 W* z/ g# l# y. ^7 e4 G        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]);
) {# k! y+ ]1 O* x2 x: n        Machine.Name :=MachineName;
. y- }% v5 U# X9 T/ J' n" K        Machine.ProcTime :=5;
: ~% C6 \/ Z2 v: `. X        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
) `# f; l5 y2 v6 U       
: l4 P& F7 H$ }: h# S. K4 L        BufName :=sprint("BF",Rows);
( b  g4 X6 P; I        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]);
) ]" Z" r6 a- q- Q  G5 Y0 `                 Buf.Name :=BufName;
6 P0 j% m/ T- l; N3 H$ Y        Buf.Capacity :=5000;
  [7 i, f) |, v: i        Buf.ProcTime :=0;
. K5 m5 _! a$ I* D# q' X, w        .MaterialFlow.Connector.connect(Buf,Machine);
+ ~# q' V# @# H5 o# ]next;
end;

五五

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

wudi

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