程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
) T& U8 L% p. |( o! P2 w: }- t3 M" Q/ Y        MachineName,BufName:string;
! s, R+ h- }4 J& r( q- s% J        Machine,Buf:object;
+ N# J# Y$ i5 d9 l. Mdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
+ y- t& M7 i. N% V6 ]                when 32 then
$ Y  y5 Z" X# J  A# [- D, c: n- r                        print "No";
( {; m: e# q( P; o& e                else
( V& M& b8 q3 J. {6 X- X' h                        print "Cancel";
                end;
5 C/ y% ~+ ]. j2 d        EventController.stop;
4 Z2 X8 L* }9 Wend;
; E: _; c) Z8 i# f" BPartsTable.delete;
for i:=1 to Number_Of_Machine loop
: C+ F/ K9 Q( N0 U/ d        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
4 R/ a0 j) `4 N1 S* M                        end;
                else
& V$ E/ o3 j8 t+ h, }/ w. o                        if j=i then
2 I. B) }& Y" ^9 X0 G) C/ V                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
6 z9 H+ w8 ]1 G5 W$ |, I4 g$ h+ x                                end;
% |/ F( B; |) u! ]5 u$ l8 t* g                        end;
$ d* x* H  P+ X( c) ]( _0 e4 A- d6 t3 z                end;
        next;
, b( _( z. b. ^+ y- t2 gnext;
* c* ]% w. [# U2 p( w
end;

, o  Y7 Y5 K5 u( B2 C    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
( S$ ^4 b$ a* w2 g, R) J        MachineSequence[2,i]:=Rows;
! r; s+ r! G- S) y            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
4 Y- z) d* `3 G                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
/ m$ r1 i5 Y$ R! C) S  y* m                        PartsTable[5,Lines]:=Rows;
9 ^; z$ ]% `& v4 Q0 _" [                        PartsTable[6,Lines]:=j;
                end;
        next;
; h8 P$ B. a1 P# P1 P0 M; h8 @        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;
# `; R$ ]2 g8 S% f4 ?1 `! e& o        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
/ x6 @' s; o* g6 Z( V% z7 c  k        Machine.ExitCtrl :=ref(Leave);
2 q3 k6 j# x- P4 V. W" S       
+ Q# c( {* I3 c8 I  z+ M, Y        BufName :=sprint("BF",Rows);
( _6 P- E5 C# S. Q  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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
( _7 m6 U. r) A8 u4 C! I' z        Buf.ProcTime :=0;
( m$ `0 G, Z+ Y- ^, \) K        .MaterialFlow.Connector.connect(Buf,Machine);
next;
" v, V4 g4 Y. o4 ^1 E* hend;

五五

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

wudi

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