程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
8 ?* _2 Q, O6 Z/ e; e$ Z$ n( T" c        MachineName,BufName:string;
        Machine,Buf:object;
1 w- M+ c0 C- k! Y) ado
- d6 Q& _: k9 S& C0 m  E: a        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
# r% b8 w. U4 E" }5 A3 e; B                else
3 z, r5 r; o: t# M% b                        print "Cancel";
- J% @9 x5 C* R3 R* P. f# ~                end;
5 x7 I* _) x% N! C; l; Y& _        EventController.stop;
end;
PartsTable.delete;
9 x7 v- V; E1 Z$ Cfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
* O) v+ I5 c- I  D' x; O                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
3 A- r) J  O1 U: Y/ B& I1 I5 E                        if j=i then
3 h5 C7 |, ?- N  V0 D  k, U                                D_From_To_Chart[j,i]:=0;
3 H3 b& O% I* V# ]/ U7 c                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
9 ?; R3 x$ I8 H, I2 g                                end;
                        end;
                end;
% A1 A0 ]. I( J4 O, G0 m        next;
7 ~" m( \& s# P3 n+ @& Hnext;

end;
9 c* [+ A, c' {5 p# J- q' U& ]
- W5 h* f$ R/ x' a    Lines :=0;
        for i:1 to Number_Of_Machine loop
$ s2 ~& l# a% U  r        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
# _( ?9 c& I% q0 v, \        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
5 e8 _& B3 c* t7 M& a2 \7 ^                    if W_From_To_Chart[j,Rows]>0 then
  x8 u0 p6 F: n; u; l                            Lines :=Lines+1;
6 m8 i) j- Y$ s                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
5 P& Z7 }! [: g                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
) H+ h. ]/ }. k1 @% r, t+ g                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
% N6 j4 F0 g2 n- L1 v9 T                end;
8 A3 s* W- d, k        next;
: K+ t3 t" Q% B' c8 p        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]);
        Machine.Name :=MachineName;
- k1 t  k& Z$ K$ }9 b        Machine.ProcTime :=5;
  ~5 j& r  _5 w- c/ `        Machine.label :=sprint("machine_",Rows);
; Y- }; x( Z2 c0 d        Machine.ExitCtrl :=ref(Leave);
, u$ _. c7 e' X7 _       
        BufName :=sprint("BF",Rows);
; L0 F/ e, {& n7 P3 x        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]);
- {5 d+ p$ g* d# o5 D                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
8 i( n  t; O8 _. F/ ]        .MaterialFlow.Connector.connect(Buf,Machine);
5 `3 F9 o( J4 U; Q7 @next;
end;
! Y/ N, n% o# F$ ]% J

五五

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

wudi

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