程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
/ V# l- l' }* Z3 N$ z" k9 x' Tis
4 h# ~* N6 G  M# v/ p$ W: [) H        i,j,Rows,Lines:integer;
% `9 Q  z* g* m9 Q        MachineName,BufName:string;
        Machine,Buf:object;
3 E! m: N; N: Zdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
" j" s! h/ R) ~- C( f6 A: K                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
) T: l# K4 J% K. ?; {$ q  Y                        print "Cancel";
                end;
0 v+ X; k5 R7 k/ m7 E& U, C. E" k        EventController.stop;
( y5 K6 a' r/ v7 Bend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
6 H: ?( g6 G) ^0 B                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
) w" N% V, W$ u6 b                        end;
; f- V5 r3 N5 V; z( I4 \                else
                        if j=i then
6 h2 }- j# S5 Y                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
" p6 r" i7 \  j$ `5 a) T                                        messageBox("distence<=0...,",50,13);
; v1 L2 m3 H# ~                                        EventController.stop;
) l+ P6 V! H5 N( [: g" m$ E                                end;
1 N7 U/ Y& ~8 W  s) {4 _                        end;
                end;
7 h# D# W  \! W" j6 z% Y% \        next;
1 [$ x# P/ d+ C7 anext;
' ?3 \7 K( @3 @6 x1 m6 n# p
end;
! z2 t, O! G" t
5 M. f8 |  q! d- y% c/ \    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
# d6 `& h" p) ]4 P3 U        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
( y& @+ C2 b7 |% X+ k# `! _9 ?                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
0 n8 k' p3 j3 O        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]);
        Machine.Name :=MachineName;
: \+ y0 f0 X* ]: s# x! b) {1 n# p/ i        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
7 a* g4 _7 `" V* K) t3 v        Machine.ExitCtrl :=ref(Leave);
" `0 c' `$ W+ L       
        BufName :=sprint("BF",Rows);
/ i! n( h3 D, y4 f& v* }4 m8 I6 J  A        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]);
, k) Q) m% G' E& j' i% f8 P6 s1 _" o                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
, |$ t4 U' U  N' lnext;
, C1 l2 a0 s; n/ ~3 p) a/ Cend;

五五

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

wudi

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