程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
0 V* ]1 k0 b: ?1 x; Gis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
7 s+ I. A) z. G5 }' cdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
" c$ A0 H5 ^# _9 p' [5 Y1 I# G$ H6 G                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
! w4 j5 j7 P* o6 S/ n% }, N4 f                        print "Yes";
0 F" ]  D7 b) `/ j- m                when 32 then
3 w4 c' Z' d7 Z9 v                        print "No";
                else
, \4 ?3 A8 E! s, X                        print "Cancel";
                end;
        EventController.stop;
/ H# l! O4 W- t+ ~5 _- r8 O6 ?end;
+ M8 @3 m1 c( T% B) WPartsTable.delete;
" E( ?8 o8 n; g$ @for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
0 w2 V* A1 Z" Z: p' A                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
2 J3 e7 c0 I  L" S                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
* o6 T5 E) k0 P4 [: I. q! Q                        end;
                else
" h( ?& W0 F& F5 F- w! h                        if j=i then
5 l  |2 x' _  p. ]9 T" L2 U' n                                D_From_To_Chart[j,i]:=0;
                        else
/ G: o  e5 U3 h! ^, [" A& ?1 C                                if D_From_To_Chart[j,i]<=0 then
9 F1 a2 f+ S7 ~, m2 [* j                                        messageBox("distence<=0...,",50,13);
5 v5 Y, W  y/ S7 Q5 T' j$ b                                        EventController.stop;
+ ?. j7 |- }8 D0 G7 e; A6 i& I                                end;
) n6 e( S% h: b( O; k1 r6 n$ u                        end;
                end;
+ M' T& Z- a- \. }        next;
next;
1 S# U. y5 `! Z: D" Z$ \  Q6 Q
end;
* G9 n9 \* `+ {/ J3 d1 k
    Lines :=0;
; z0 E- n8 a. [% h        for i:1 to Number_Of_Machine loop
6 k7 Q, Z( J  L4 j6 ^7 z        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
                            Lines :=Lines+1;
+ T/ o4 W  f( |/ K                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
% Z4 L( G: x8 w; F$ d; {4 s3 j                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
* l5 s, T6 q) r9 R/ w% L1 z( M                end;
# q* f1 a" W+ n. X5 r- q7 O. K        next;
) h5 D) B( b# I        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;
4 ]: N7 h% J& I5 Z5 M6 T        Machine.ProcTime :=5;
6 }$ X7 s4 T7 p& a9 c        Machine.label :=sprint("machine_",Rows);
7 d2 n/ Z: c( P0 V# g& y        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;
9 ~  R6 x! `8 G        Buf.Capacity :=5000;
7 A2 }& s: W2 O        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
6 S) l6 N* _( x/ B# Dend;

五五

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

wudi

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