程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; @5 n4 Y6 n9 i) k8 K/ U. R6 Bis
        i,j,Rows,Lines:integer;
& ?0 K3 R+ H4 s: \. |7 p        MachineName,BufName:string;
4 o, [- Y9 p) g) \4 R& o, m; ^7 _        Machine,Buf:object;
: s5 I- i% F: S3 U7 t$ s( ldo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
9 V1 N) x$ |/ g/ n7 V                when 16 then
                        print "Yes";
6 }7 f; s# S; M( a                when 32 then
6 E$ m$ Q) d  W. M% {& U) G9 l, ^/ E                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
  n# A* _) x- t2 \% g( f1 [PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
) h9 y% ^+ W" ?" J2 z5 d                if j<i then
0 X8 ^, d- M* [2 ?& y) Q( i8 K* X9 [                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
' h8 G; Q. y; m                else
3 I: d6 H7 u; U# W% `                        if j=i then
+ \* o; M) h" E! v: z: _7 J, h4 F) u                                D_From_To_Chart[j,i]:=0;
                        else
  ^; Y% e! @* `                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
" K1 Y  B; Q+ t) ], t- v( V1 N                                end;
& s& w  M& A6 b2 P                        end;
/ _$ d6 W$ F# `- D' I                end;
5 s" ?0 U, l6 N3 }9 i4 [        next;
next;

* a+ |2 _! \9 {1 f$ T; {end;

    Lines :=0;
8 L# K! c* R7 B9 s% F. E* `5 f# y        for i:1 to Number_Of_Machine loop
# n$ D+ Y! C* c/ B4 ^( i% _! q        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
4 D6 X& w0 _/ @$ d/ @& I                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
& s9 O. K/ G7 S: O                        PartsTable[3,Lines]:=sprint("Parts");
# A- F4 z2 k- k& P                        PartsTable[5,Lines]:=Rows;
' N) M! X! q( Z/ d9 {. G2 U/ ?) r" r/ o                        PartsTable[6,Lines]:=j;
; m6 m. y. f0 G6 \& R5 x6 x$ y2 T                end;
0 A. }) s! f2 u0 N  H2 Z        next;
( A% l9 @: ^1 `7 ~7 u' L        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]);
! u+ \7 X! b  `  `3 [        Machine.Name :=MachineName;
2 R8 @5 S8 Q7 g5 ^) T        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
0 D  P" M3 x4 M, ^2 P        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]);
, z1 M' t/ I6 s# ^4 [! }                 Buf.Name :=BufName;
* _! t. e6 d* l# F8 Q4 ^; u        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
  b' Q# A: K0 l* L        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
! S3 d: t& Q/ m% x/ Y( O! S1 d& [

五五

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

wudi

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