程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
: {1 q2 Q+ @: V; f) n* C8 d+ @) M        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
" O! D6 z+ I9 G9 f% ]9 _. g                when 16 then
                        print "Yes";
$ a9 r9 K" H) k  Z+ M                when 32 then
                        print "No";
" M. h. P, u* m/ F5 z                else
; l1 a6 {' ~# U# Z( s( p. E                        print "Cancel";
                end;
        EventController.stop;
end;
4 o) t) s, L1 ~; z+ NPartsTable.delete;
for 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];
                        end;
2 D6 J4 d6 \- O$ V' a+ h                else
                        if j=i then
/ F) P' }3 ]6 P/ I' t" Q  B' G                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
( g3 U  Q! r; Y% T% q                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
        next;
9 l1 L6 g, m" `% G" j. Lnext;

9 k4 Z% }% ?( L( l8 a$ rend;
4 L7 q4 A' I! V4 ^
2 h! @2 t7 K  O* r' ?  }3 d0 ]    Lines :=0;
        for i:1 to Number_Of_Machine loop
! ?1 H% F4 g7 l" Q        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
9 V: ?1 O- _  L5 b9 h8 u3 }! H        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
, q% d- [0 [1 t2 o0 r                    if W_From_To_Chart[j,Rows]>0 then
. \( l; Y9 k- F; p                            Lines :=Lines+1;
2 e% d+ T( s( p# d" h$ a( l" j8 V                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
% s0 U9 w& O4 x# C) v                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
  Z' A& ]/ W+ f' [' \8 f( I                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
) L' b: ~- N6 \$ Q* D9 g0 U        next;
$ [0 y  T# }7 j8 ^' a  k8 a% S1 j        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]);
; R) |. G+ @8 X2 ^1 t0 w        Machine.Name :=MachineName;
4 B1 }% b- ]# C6 B+ ~3 A        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
) ~+ Z8 d9 Z3 D- P* t        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
! H0 l! K' `' t, H; a        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;
- x' L! _! h7 I- g( k        Buf.ProcTime :=0;
/ R! N; B$ c$ w5 [/ G4 _0 C        .MaterialFlow.Connector.connect(Buf,Machine);
8 z0 l6 \8 m$ Nnext;
end;
& `4 _0 d& {$ C% g

五五

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

wudi

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