程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
+ p7 A$ R- O; g$ ]is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
. B8 n7 ~3 }& A( U5 u* j$ |        Machine,Buf:object;
do
/ z: e9 r3 u$ `7 x4 R, V        if Number_Of_Machine/=D_From_To_Chart.YDim then
6 v; T+ P5 \: e2 {+ l2 \) G1 Z                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
: j/ R- M/ q+ ?6 g                        print "Yes";
1 w! T% k" S- D% D$ j# Q6 m7 M7 L                when 32 then
# C& }) g4 L( x& t  H8 j# S& [                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
' l+ S6 A3 R, C                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
+ P: H; t( L9 p* z+ I                        end;
                else
2 C3 f2 G* F( u# |- G, y1 n                        if j=i then
5 A& e' \/ S& @2 y0 a5 S& I                                D_From_To_Chart[j,i]:=0;
& Z: ]8 T7 N9 E6 O4 V                        else
                                if D_From_To_Chart[j,i]<=0 then
+ }" N" |4 n; T% \+ Y                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
" O8 k  f: H. _( B. z2 l                                end;
                        end;
                end;
9 i" k+ e8 _; {' f5 t        next;
next;
6 \: S8 R6 D  f3 u3 ^
. g6 A7 Q" T, i$ Kend;

7 m$ ^8 u: W$ J! ~- p8 R0 l# V    Lines :=0;
        for i:1 to Number_Of_Machine loop
. r; r* D* ^4 @) `) X1 M        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
6 D  m* R$ o1 m1 ], O, q        MachineSequence[2,i]:=Rows;
8 [' h: X$ N& T% }0 }& `* b            for j:1 to Number_Of_Machine loop
) e: A( n0 b9 Y5 w( U- A9 J5 q' p2 J5 i                    if W_From_To_Chart[j,Rows]>0 then
! [! u8 u! k2 Z                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
; Y+ l( G: L4 f                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
+ B( a. E' w9 n# }! E. c/ m6 I0 P                        PartsTable[3,Lines]:=sprint("Parts");
+ z3 s' ]9 U6 t4 R4 f0 [                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
! [  C5 [* }9 o* U% v0 S                end;
        next;
& c( q7 K9 s( J1 j: v4 p        MachineName :=sprint("M",Rows);
* h; E/ m0 k  d% W! l4 w0 M" G( i        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]);
% x- M% J  Z0 ~5 ^# |% ]        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
, V$ c) F$ Y$ K& c" N$ @; J        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
1 D1 z) ]7 Y4 W        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;
1 h- @4 h1 S, {        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
! Y" [. O8 M* B) [next;
end;
: Y% T2 j' A9 O+ V4 N! X

五五

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

wudi

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