程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
  F& W+ m9 l( f# k" {: G0 S# Ris
# n3 V4 [- ~# _        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
% p/ Z% t! `& L  Vdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
+ N0 p7 U/ x0 N7 L& j                        print "Yes";
                when 32 then
( d2 Z2 ]  _) C8 L' ^                        print "No";
2 }( p+ O4 ^2 [6 z$ }  G# z1 G                else
                        print "Cancel";
1 E: E. P/ D. G                end;
        EventController.stop;
5 J9 I- O( ~, b  G' t3 N( a, eend;
PartsTable.delete;
! ^. Y* E4 e8 {8 z0 m. ]for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
& P! g* d0 k# H( N1 r. o. I1 m                        if D_From_To_Chart[j,i]<=0 then
) K% S; N2 p( j9 T+ s; O# a                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
+ v9 g0 W' X) Z& U2 U                else
                        if j=i then
! Z2 D6 E6 Q; z$ _" ~; L                                D_From_To_Chart[j,i]:=0;
% S" T% X+ M' \; p                        else
4 }: g. x: X$ ]4 E                                if D_From_To_Chart[j,i]<=0 then
8 ?- D9 m8 B6 Y2 Z/ c. _4 Q                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
& S! T7 p/ [: J! W                                end;
9 S; L' u9 s7 ]: v4 Q( Q9 u. i                        end;
- _6 g! Y7 x  F0 j; ]+ K                end;
        next;
: q+ i4 w7 y& a# ~' n; cnext;

' Y/ f; r+ h/ E1 s7 S$ Kend;

% p, _& o5 W$ N. k: ~$ L% k    Lines :=0;
        for i:1 to Number_Of_Machine loop
) N$ D5 E& q  u) g        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
  Y) X/ N& ?0 S$ v- {+ ~                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
* X2 t" F/ R, {- V7 \6 s                        PartsTable[5,Lines]:=Rows;
$ F; V4 X  S' [+ O. ^                        PartsTable[6,Lines]:=j;
                end;
& [; R4 u2 A! [- H5 K        next;
3 V. @8 H. [2 h+ w( \* S# M        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;
        Machine.ProcTime :=5;
! f. J. b8 j8 j% C3 E( H) Y% \        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
0 E' o6 @2 T& m7 r6 \& R7 T        BufName :=sprint("BF",Rows);
8 G  d0 b9 R2 j7 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]);
( e: \4 h8 K- g                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
" \# ?1 ?* P5 |* z        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
3 `3 f1 Z7 y8 wend;

五五

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

wudi

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