程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
- a2 `5 L8 b; _2 q8 y, i& w- |1 Nis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
! l) O0 k. `6 p0 n: e1 ~5 C        Machine,Buf:object;
& y5 ~7 @/ B- I3 d4 Y, B1 odo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
: E3 K, o; }' \. f                when 32 then
) m( T& t1 S# ?# i  Q4 L                        print "No";
' e$ J& N4 \! d                else
                        print "Cancel";
. I4 @9 H. }6 m2 @7 J4 t                end;
        EventController.stop;
end;
PartsTable.delete;
7 @  Z4 W* I+ Q) V3 tfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
3 }5 g$ d% W; q+ i0 v                        if D_From_To_Chart[j,i]<=0 then
1 j) j( G6 K" W* c+ g                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
4 }; n0 l& ~4 t6 [+ }2 A5 {                        end;
3 O" h' V+ _) s- d+ A7 V" ^! e                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
$ W2 M8 ~6 g, y9 ^# G                        else
                                if D_From_To_Chart[j,i]<=0 then
" Q2 ?; U" y2 @                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
1 H1 B! z) U: e                        end;
+ M/ c8 b) g8 \5 {/ t' o                end;
        next;
next;

4 l1 b/ a; U$ a- R; P, rend;
4 m* L2 G/ |: p! m
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        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
* g) d9 R* j) a4 C/ H5 p4 z6 L- x- @3 T                            Lines :=Lines+1;
* |* P$ T% @" [2 ~" i" |6 G/ a                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
" J. Q' t7 O3 D  I# F  n                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
        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]);
9 x* f$ k* _4 P; l2 C0 U' y: t4 U        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
0 ?7 G$ S3 r! b) Z; O0 f2 G        Machine.label :=sprint("machine_",Rows);
        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]);
) v0 p0 Y& a; N4 s! u' X& E                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
; b0 O6 K5 }! w, n+ E        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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