程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
: R) h/ N8 _+ N        Machine,Buf:object;
3 c/ k/ u  u% y+ T1 edo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
; G( w0 s/ |( T  J) c1 [                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
* W7 G' w# w9 B, p- jPartsTable.delete;
. I' a0 T+ k# b5 @/ |9 Zfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
. p6 q8 l+ R7 q9 V- m. F                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];
' q5 M# T! O( m% ^4 z- ~4 ~, |# h; ^3 x' i                        end;
+ w# `9 L7 T, G/ o                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
  B3 E. r% ?2 R. M                        else
3 E8 u- X6 _2 j/ f- r- V9 S                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
! s3 p4 A* t1 T- ?  S                                        EventController.stop;
% U. c- X0 d, `& @3 o                                end;
                        end;
* G0 n* N4 ]6 o( K- o! s" ?, s0 G                end;
" o$ f, u' y6 z* k% `1 e/ X        next;
next;

end;
$ c6 K6 Q8 ^6 g. i! T6 t" @9 b
/ t5 t. C- x7 e8 t) O: O" o    Lines :=0;
5 j/ y0 C: j) V3 b% b        for i:1 to Number_Of_Machine loop
+ N, x- N  k) [1 S        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
4 u6 @. j( o: z) [7 h/ `7 A2 X+ N        MachineSequence[2,i]:=Rows;
* d- A( }& Y* s( h( _/ W+ ~            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
$ ]1 Y# Q; H3 ?. f/ p# t                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
) S7 \  P* u# ]& ^" P                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
# k$ H7 [: K! W* J3 b* B$ S                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
% p" C( |; {! [% j# X7 O                        PartsTable[6,Lines]:=j;
6 Y) \2 T0 K& c9 I  W                end;
        next;
        MachineName :=sprint("M",Rows);
5 w* m: T* u" z, [1 d5 s( X; h        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;
, e* w! j0 }+ I' F, e        Machine.ProcTime :=5;
0 S2 M/ X9 I* s- ]: R        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
, v  Q8 O! u: }; ]9 i6 z, {        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]);
" U" v9 R% n) P7 x; Z! n: I: Z                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
5 L* H! }3 Y0 [6 Y        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
; O$ e/ M, O& C$ z3 Fnext;
end;
; l) a- Q6 n4 ?1 C% m8 e8 z  J

五五

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

wudi

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