程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
. ^- t0 ^( L2 _is
3 }) b0 k3 b1 G4 h! p) I( E" i/ l        i,j,Rows,Lines:integer;
' N1 P' V- b8 W  p, w8 }1 N# b3 J        MachineName,BufName:string;
& |" S- w6 [9 R* }- A% G        Machine,Buf:object;
do
, d+ Y0 |! f. B) r% P        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
: c9 r* s) |& }                when 16 then
                        print "Yes";
  E* Q5 I, ~" g                when 32 then
3 z! W  O; ?1 L: x                        print "No";
0 Z  O$ q: k: v2 P2 r. a! ?2 v2 k                else
2 y: Y0 n/ H9 U4 t- e                        print "Cancel";
  Y9 e! w% C2 O# D9 [# i: l                end;
        EventController.stop;
end;
; I" ?- P% ~: nPartsTable.delete;
for i:=1 to Number_Of_Machine loop
# X1 m6 I. Q  a# N; z        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
6 z5 Q7 h! u* v                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
9 ?4 M$ x6 [' o4 x  [; h1 P                else
9 _" e' {% M# Q3 ]. d                        if j=i then
( s* f* b- ?. e  q! i- Z" E" w                                D_From_To_Chart[j,i]:=0;
                        else
/ C# A9 d3 c5 ^1 X; o                                if D_From_To_Chart[j,i]<=0 then
7 ^; e) S; H: C& p/ S6 q$ \                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
        next;
" G0 [6 \: Z- X+ ~0 Unext;
6 ^! r( j' @/ g
end;
! o8 N5 D, y7 \$ N1 v2 L2 ~  ]- p
    Lines :=0;
% n3 T- Z7 X5 U* {3 s2 Z$ c" r        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
) a: g, J: F/ R        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
/ x; Q* A+ b2 p- X                            Lines :=Lines+1;
$ b$ G% X* A) ?! i                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
  T9 {) U1 _" a8 q4 {4 `* G                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
4 ^2 Q( _) k2 Z; T: t' G1 L2 K% o: s+ I                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
9 ]$ n) [. d" i: C+ X6 o                        PartsTable[6,Lines]:=j;
! o+ P2 p9 e6 w1 i% ~& u' w: O; J                end;
        next;
        MachineName :=sprint("M",Rows);
9 n5 d" Y9 b& G$ 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]);
/ N# K% |! L" Y! D. V        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
$ S/ z0 d% w7 w8 ]' a8 \  l        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        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;
! M; j: t) Z& A# N        Buf.Capacity :=5000;
% V4 N7 |0 [  u  S8 Z        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
( h' {- I' A- f2 O/ O5 o. x

五五

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

wudi

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