程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
# }3 I3 ?5 z( s2 t% u        i,j,Rows,Lines:integer;
4 b! e0 {' @3 X4 b. X0 h6 C        MachineName,BufName:string;
5 A9 l' J0 `1 R1 K5 y% Q; l        Machine,Buf:object;
6 S# I' [+ z2 e& s& [8 O% Qdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
. H# U  e/ \9 I' Y% u                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
5 {! w* y' l7 w+ S9 m& |) S                        print "No";
                else
                        print "Cancel";
/ u3 Z& ], T! x. e6 d                end;
2 Y* r1 V. b4 N+ H- r        EventController.stop;
end;
PartsTable.delete;
5 @$ a) W2 S# @; zfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
1 Z- @+ j3 f& r                if j<i then
0 X9 ~) o# e5 `/ p# M1 f, D                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
  J6 V# i+ b( H) G& V                        end;
                else
9 A* Y; o) Y# z0 v% [                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
' _4 K2 A3 P4 d) `; \                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
1 K% M& ^6 {* d! J2 b                                        EventController.stop;
                                end;
                        end;
& D- u! a' M2 k1 s7 l                end;
* _1 t+ ^7 Z0 x! g* d        next;
8 y* _) ^/ G9 ^2 }- vnext;

; n$ q% J  ^1 h  v9 Q8 uend;
, t5 o  w, U9 h! L4 a+ c9 c5 R% W4 v
4 \9 e/ T6 q' j) Y    Lines :=0;
        for i:1 to Number_Of_Machine loop
9 V/ C' Q5 ?. A) |: F6 {        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
2 ^6 V* H! M3 ?' |, V2 _                    if W_From_To_Chart[j,Rows]>0 then
5 l6 Y5 V9 D6 \5 \                            Lines :=Lines+1;
0 r* ^& {5 E( b, ~( b                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
4 j2 Z7 t0 A. B+ M9 Y                        PartsTable[3,Lines]:=sprint("Parts");
# z, B2 V2 I9 {, U2 ~6 c% o                        PartsTable[5,Lines]:=Rows;
! L1 n4 N0 v8 |# d" g; l+ J6 K                        PartsTable[6,Lines]:=j;
6 i  y9 P% S5 X                end;
+ ?6 t, n% \1 j3 ^, d        next;
! L7 U1 Q' D/ ^  |; r( h* V; o        MachineName :=sprint("M",Rows);
9 V. n! j& b" n+ |4 M& C        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;
7 @# N: ~* N1 P( s        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
, p! Q7 U1 x; r/ M        Machine.ExitCtrl :=ref(Leave);
! T, `  \! [8 W3 [  U2 R7 i  H       
        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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
0 M+ S6 G7 a5 G% p2 F/ g0 a        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
# o3 K( q6 i1 m1 s+ D* yend;

五五

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

wudi

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