程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; ?! l6 F% B' \. f. nis
* {, O" ?/ v- r8 h5 R* ?        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
: i+ P: G# [. y7 T+ v' `% Y        Machine,Buf:object;
do
4 F8 o/ ?/ X0 F5 b: E        if Number_Of_Machine/=D_From_To_Chart.YDim then
; f, G8 ~5 P; C                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
$ p7 `- p# H! G                        print "Yes";
; Y; ~  ?- o+ }- ]                when 32 then
                        print "No";
                else
# Z7 j5 K' _5 M! F) I                        print "Cancel";
                end;
, I, V2 i& N* }4 z; Y! |" Q        EventController.stop;
0 I& k- N+ M# W' w$ D6 \" C2 fend;
PartsTable.delete;
( m+ I0 ?9 h2 x! K+ `for i:=1 to Number_Of_Machine loop
% S) \1 g# p# A/ N        for j:=1 to Number_Of_Machine loop
                if j<i then
+ u# c3 P$ m$ D' q                        if D_From_To_Chart[j,i]<=0 then
3 |2 e  ?# c2 p6 V' x5 O- i% e                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
6 l" L# q* q5 C% O8 ?                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
5 S/ C: [1 g" u# S                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
7 k3 ], Z! T# e" [% ?$ E& E                                end;
. C! N) Z, D/ L0 t6 F# n9 T2 j                        end;
8 j% h, }/ {" y* P, `                end;
6 h% `' v: K  M* L% B        next;
next;

9 T- F' f5 N9 f' x" d' k  u& eend;

# u) {& F5 j; z+ `5 [    Lines :=0;
0 d. p, C. Z: j- V        for i:1 to Number_Of_Machine loop
& f2 J; E% o. z% D        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
( i* a% J1 {# N7 R& T$ R        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
  H8 r5 m. f8 D9 u1 n2 S' l7 k3 Q                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
/ R: N6 \$ ~0 `% ?5 X2 I                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
: H( H/ s" w" o( _* v                        PartsTable[6,Lines]:=j;
                end;
        next;
        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]);
6 k1 W& T; }$ ~8 P; A        Machine.Name :=MachineName;
$ Q2 z. B5 n, p7 @        Machine.ProcTime :=5;
& q& X0 \5 T8 T) G        Machine.label :=sprint("machine_",Rows);
6 ]1 ^# u5 |9 O$ o6 X% w2 e        Machine.ExitCtrl :=ref(Leave);
: }% s" Y! ?4 W- H       
        BufName :=sprint("BF",Rows);
8 O  z( Y) D% N: O! t' |        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;
+ F* K* l4 ^$ }# Y! i9 F        Buf.Capacity :=5000;
! O4 w: \! y$ c        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
# P5 Q; x$ U* L0 x& z5 Unext;
end;
  I, h; x: z1 _' |% E- f

五五

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

wudi

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