程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
8 z/ a, L* I/ g0 \2 Vis
! R' w0 t: T9 L$ g+ c; }0 W; R" F        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
$ n- k. i  u( B# W, h7 vdo
; G9 [$ f; k9 J' A/ `" M- j6 ?        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
1 g) g: Y# @$ U                when 32 then
) L; k% L, i/ @4 F3 u                        print "No";
4 }( H2 q, L( r                else
0 n4 N0 h; }# w7 X9 R                        print "Cancel";
3 r6 }5 ]# o; W  E8 y* R                end;
        EventController.stop;
end;
PartsTable.delete;
' W+ X5 A6 z4 t2 kfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
! P, r5 @8 u( x1 C5 k+ q, h8 l                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
# H. e; B$ \4 u, L                        if j=i then
                                D_From_To_Chart[j,i]:=0;
, _: |* ~7 D' h* x* _                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
        next;
: Y2 U2 H2 x1 d' fnext;
. U: z& C# J3 U7 p
7 s# x( c4 M6 J0 V9 Aend;

    Lines :=0;
7 G' Z4 w. E+ e. Y7 G9 I        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 C+ P6 ~* Y" J( M, O        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
6 O7 R: K3 I, N! F" m8 e                    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];
* n4 P  j- r) V# _2 ^. p                        PartsTable[3,Lines]:=sprint("Parts");
; R' |; h) M) k                        PartsTable[5,Lines]:=Rows;
3 L( s4 [2 g% o3 |( z9 N                        PartsTable[6,Lines]:=j;
9 i( u% H6 i8 g* `& m                end;
* X1 `/ Z% S( ]3 N: [! d0 c        next;
5 O! P" M$ y0 }) Y        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;
5 \8 Z* |# A) v7 A        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
/ P* X. G$ `) Z6 E' s       
        BufName :=sprint("BF",Rows);
+ z: y/ v7 Q) D1 X$ ?        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;
        Buf.Capacity :=5000;
9 Y+ s# ?6 h, p$ P7 M7 D. ^        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
# s& A& f, D& V9 R- Wnext;
end;

五五

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

wudi

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