程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, Y( P- x8 r# L1 Wis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
1 a3 C5 o. S# P: S        Machine,Buf:object;
7 E- j1 _+ h+ F" ido
3 p( [: u5 b  n$ }6 k        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
! U$ X. y1 v0 B% n1 V  j8 W! v1 s3 J; H5 _                        print "No";
                else
3 y% Q4 h8 B7 q" Z                        print "Cancel";
                end;
        EventController.stop;
* E+ B' u; C8 J: D8 K7 Q6 |end;
! X/ a  e/ E) q  D& V2 t" L: ]PartsTable.delete;
5 `, L. o5 ?6 u. X' o1 }for i:=1 to Number_Of_Machine loop
0 r3 S2 t& P5 \( z! J        for j:=1 to Number_Of_Machine loop
+ m/ Y0 Z" V+ {% Y# N+ o" a0 V                if j<i then
6 t' X, c; j- r# g5 |9 G2 V                        if D_From_To_Chart[j,i]<=0 then
" f7 j7 k4 y7 I9 K% i+ T, S                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
$ ]/ ?' Z% s# G                                D_From_To_Chart[j,i]:=0;
2 }; D% ], b+ t                        else
4 P1 K9 ~; z; i# P4 f                                if D_From_To_Chart[j,i]<=0 then
7 M1 h" D9 @5 ?+ @6 Q: {' D7 R; @                                        messageBox("distence<=0...,",50,13);
' Q* [$ d8 m4 b7 G) M                                        EventController.stop;
/ t8 C2 i0 u$ V                                end;
                        end;
                end;
: K2 w- ^1 M0 b. K: W8 I- s; ^        next;
, ?8 Q1 t% t, ~) R1 ynext;
4 J+ K* v+ ]0 }8 G$ Y1 h( u; C9 O) G
end;
+ k" b1 X. z$ R" B' S" k% c8 o
- ?' D& {3 u9 b  R4 G    Lines :=0;
4 X- K9 `& T$ n# K7 e0 G/ c9 m        for i:1 to Number_Of_Machine loop
2 l. D$ q& G& A5 h4 P: |/ T9 k        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
0 C" s$ h& L8 T- Z) `  z        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
8 h8 ?) f4 D+ s* W                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
- K% y  V, p2 K                end;
7 A" G7 K4 m$ W8 V0 \        next;
* Z8 a3 D& l( c' G  |        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]);
: m8 g/ E$ w( o4 t& x% R5 p& z        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
7 R# o* I' l1 _* o# I       
4 ?& [. c% M: d7 g        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]);
) ^7 E; @  B/ u( K1 K3 m9 T# }                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
( @& ~$ x" h& L0 a: d        Buf.ProcTime :=0;
! I1 l/ {% t2 Y, k% R: w/ H. L  o        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
. @9 t& O6 d' @3 O

五五

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

wudi

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