程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
. C4 |- j* @6 @  o# C; d        Machine,Buf:object;
do
8 D% U) C4 I8 C2 o# F+ k        if Number_Of_Machine/=D_From_To_Chart.YDim then
$ l0 e7 _7 w* q' k5 t* J                inspect messageBox("Number Wrong...,",50,13)
* r  y* y9 r9 q' I9 V                when 16 then
                        print "Yes";
# U8 f' ?6 X6 P3 P                when 32 then
                        print "No";
/ d: ^6 F8 y! B0 b* b                else
2 `& I8 F2 f6 t! K                        print "Cancel";
% |; `' r: t$ H  D, c9 a/ V4 [, ?                end;
3 h" ]/ {7 ^$ U& c  o% g) n        EventController.stop;
end;
PartsTable.delete;
+ f' a- c% f/ H' }6 q& ]7 p, P/ d% X0 O$ tfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
- o: O+ }. k# [/ S. Q" D                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
) i4 ?! t3 G$ X2 Z6 s0 B                else
# a5 c' D1 C7 \/ Y7 l: ?                        if j=i then
                                D_From_To_Chart[j,i]:=0;
( G) T. z4 \  H' A% |% \$ f                        else
                                if D_From_To_Chart[j,i]<=0 then
! f6 X* s# h& H3 W. W- J* E                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
1 j  u, [2 L6 M                end;
        next;
' R: |. o$ o# ]( b4 _8 ?next;
. m6 y* P4 B) ?' I
end;
0 ^( Q6 ~3 I) n) G/ r7 f
    Lines :=0;
& J- R6 p" E: m, ^        for i:1 to Number_Of_Machine loop
5 b! ?$ u, Q) l" d+ ^" {$ t        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
' H3 z' W5 s  K) S' i0 z            for j:1 to Number_Of_Machine loop
2 H6 S+ [8 Z( E$ Z* @                    if W_From_To_Chart[j,Rows]>0 then
7 @7 `; M2 ?* n* a( b% S6 W                            Lines :=Lines+1;
( a' A. y& K% O* g                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
7 h2 f$ q  K4 W6 Y2 C( s0 z, C                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
1 |6 \  ~! ~0 H% C* L                        PartsTable[6,Lines]:=j;
6 S( ^% [! _$ ]                end;
7 E. \$ r6 K$ U+ u6 u1 D; e        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]);
. K- n3 \+ E: ~/ {: }! v8 D/ w: \        Machine.Name :=MachineName;
* k; c* \* W3 @        Machine.ProcTime :=5;
- M2 F, @* X! u7 S! P; ~        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
. g  S3 H( R( z: J/ U9 @8 m       
        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]);
9 N  i6 o. C  p  }& N  N7 P                 Buf.Name :=BufName;
) \, j9 E; X5 Z6 [/ V" Y) d        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
. A% }) k6 }2 N/ B7 d0 C5 |        .MaterialFlow.Connector.connect(Buf,Machine);
next;
8 m6 }- ^2 b( n; v- x, yend;
0 w- }- h5 N2 p1 y7 W' R7 w

五五

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

wudi

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