程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
! W) H2 n; F) d8 |        Machine,Buf:object;
' ~0 l4 q$ e$ w* j! V6 K- odo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
4 d; `) {0 J. B5 x- d, N& i) F                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
/ H' n. w( H8 x, t) |3 q                        print "Yes";
6 F$ D( z9 u$ w2 A1 M4 P                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
, a' W$ P+ O$ i1 h9 Kfor 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
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
8 y, M" @) b3 c0 }0 g/ ~, J# U. o( T                        end;
                else
' x, }" ]1 U6 |. F' W( Q0 x( o. e                        if j=i then
& u; G* a: e& M$ l) {                                D_From_To_Chart[j,i]:=0;
. [% F. d, c- R9 Q6 N2 R6 P0 V5 z                        else
                                if D_From_To_Chart[j,i]<=0 then
" q, K8 h4 a/ ]* c3 m! F7 C( i                                        messageBox("distence<=0...,",50,13);
7 N7 j9 F' [; C; F) K! K$ w                                        EventController.stop;
                                end;
                        end;
                end;
. _$ L5 z  S9 _0 K. m$ v0 ~        next;
next;
  k; `5 D& {' y' w( R* V. ~& d
* T; M& x7 Z! O! i7 [9 Fend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
0 W9 v& \3 f; T/ o( w2 L3 g5 U        MachineSequence[2,i]:=Rows;
- y6 a; J: D+ D3 k4 t# m- L, t            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
2 K& U$ I0 [+ e; u- C' X                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
$ s/ q" f) P% n4 i2 ]1 g                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
; b9 V4 _; G% h0 k4 I. o                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
. y% P$ t2 w/ S2 r; T! p4 g        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]);
9 `" t6 e% X, k' h; c9 X! E- a        Machine.Name :=MachineName;
& }4 d+ {" \+ I' V+ w! X        Machine.ProcTime :=5;
% s7 D+ ^8 O4 t4 ^. h$ [0 P5 Y        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
$ V4 W8 o, D% ^3 @        .MaterialFlow.Connector.connect(Buf,Machine);
1 o) @' `) o0 }) Lnext;
, x5 `+ Q. Q6 Z/ pend;
* d. L3 o% k) l# o7 `. h) C2 r

五五

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

wudi

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