程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
' o5 C, R, U7 O6 `is
# O: u9 P- Z$ Z/ o/ \        i,j,Rows,Lines:integer;
) A6 o8 i% n) @: @# |% A        MachineName,BufName:string;
        Machine,Buf:object;
3 e- i  w% p6 v0 `do
! Q* }$ @7 \! ?        if Number_Of_Machine/=D_From_To_Chart.YDim then
) w% b& _8 T9 D) U2 M& X+ H" r6 t                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
# S4 m4 J0 s3 K2 @                        print "No";
/ k% ]! F3 ]# i$ j" ?$ d                else
6 f  l' o! z: @: F2 c                        print "Cancel";
                end;
+ o, U* H# h: z# h* Q        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
. E2 {& j9 h( J# V! h1 A* k" t4 N. T        for j:=1 to Number_Of_Machine loop
                if j<i then
3 q2 \. D5 W+ Y: ^, ~/ a# g6 \9 d9 z                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
! `+ ]1 `! E' h( r& }                else
                        if j=i then
) U& E$ N7 }& M                                D_From_To_Chart[j,i]:=0;
                        else
8 R9 y, S% [. u, F                                if D_From_To_Chart[j,i]<=0 then
+ Q& w$ x& f  X" F" j                                        messageBox("distence<=0...,",50,13);
: h, P# `7 j) D% h! w6 S                                        EventController.stop;
                                end;
1 m1 f2 ], H0 y& O: c: Z! a. N                        end;
                end;
        next;
next;
; o% c; i3 E# P5 I/ N
7 Q0 O7 t* c' E3 P. R" }9 e: X+ _end;

1 [# D3 m- V1 E# N    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
$ l7 H" H4 g( H- K        MachineSequence[2,i]:=Rows;
9 w, O' T- u: L# p! P, j& T7 l            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
' r( @# p3 _' [! J. R7 [                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
+ k7 M+ I+ A, K# O  b( L                        PartsTable[5,Lines]:=Rows;
& o! c  n8 o7 C' g# u+ I                        PartsTable[6,Lines]:=j;
                end;
/ J3 W4 W9 D- [        next;
        MachineName :=sprint("M",Rows);
6 i7 i3 F  C2 X8 n4 c( n( y) `        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]);
$ l4 a8 P  }; [2 F$ S8 x        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
) T5 K  g2 Z* b/ C" u        Machine.ExitCtrl :=ref(Leave);
8 \6 Y$ ?2 T/ G4 Q' N* D       
        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]);
" D9 n3 p, D# G7 H$ i# R/ u                 Buf.Name :=BufName;
7 @. C5 J. z& u) D' a        Buf.Capacity :=5000;
0 S& g! N0 x, ^( o7 H5 r7 S        Buf.ProcTime :=0;
( a5 \- R' o1 }( v        .MaterialFlow.Connector.connect(Buf,Machine);
next;
2 @# q# k/ w2 o- {end;
. [$ n- V7 z7 c+ p) x$ ~0 L5 m

五五

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

wudi

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