程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
# A9 {+ P6 L% d: n# l: F        i,j,Rows,Lines:integer;
! M8 @  q9 J1 ^* ?        MachineName,BufName:string;
        Machine,Buf:object;
) A+ }! e0 R: p; r$ e) c: w' o) {do
$ H( D3 r' M! d/ a! |        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
! _! F! N' S  S$ V                when 16 then
  F( ~, d0 W4 S: n  m9 ?3 h                        print "Yes";
) A) V# `+ O- e                when 32 then
                        print "No";
- p# ?9 F* w5 U) d! J! J                else
                        print "Cancel";
* D/ S* P, [' K1 Z                end;
$ [2 D7 h( B. w( v6 L; T/ U+ m/ U0 X- |        EventController.stop;
end;
  V& ^) X& y- Q! ]: N5 NPartsTable.delete;
5 q1 P" S1 o' b: x! p( z; Z) i. mfor i:=1 to Number_Of_Machine loop
8 A/ O0 y- i$ ^2 K* K" s" }        for j:=1 to Number_Of_Machine loop
& i/ r. B6 D7 U8 p& U                if j<i then
! f! P* k8 |2 N1 r9 g0 ^: r: }6 L                        if D_From_To_Chart[j,i]<=0 then
/ K# R5 p* l/ s# g                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
6 h1 W2 ^/ o4 ^8 X% Q) b8 _- ?: o                else
                        if j=i then
, l* w- [8 P3 R9 k/ w                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
! o9 X9 s1 H1 w- P                                end;
# T- `9 j+ O, e* h# k0 ~                        end;
$ m8 H) b3 I- M& i' Y                end;
        next;
next;

end;

    Lines :=0;
) H3 M% |2 Y8 J, y1 W# ~        for i:1 to Number_Of_Machine loop
" \( S+ v/ G5 E5 S        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
6 W2 E2 _+ ~, N! S) `* ]$ j2 O        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
, i7 v& r' D  x$ E  s                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
9 g6 g; P! S3 S2 k                        PartsTable[3,Lines]:=sprint("Parts");
0 T1 e5 q" r. S3 S& ~2 T                        PartsTable[5,Lines]:=Rows;
; p( l6 N! q' ^* x2 Y/ u" I7 Z                        PartsTable[6,Lines]:=j;
6 {! ]8 E7 ]  D: T                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]);
6 k/ t* P5 o) ~  D9 A6 y        Machine.Name :=MachineName;
5 U, ]% M! C# y9 [- i, s        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
5 X1 M9 j1 }* j3 k       
/ K( ~$ v! a4 z* w        BufName :=sprint("BF",Rows);
, h6 g0 A$ M" m* O1 m4 t; e        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]);
, X; w- E& R4 S# K5 v$ X- A3 U                 Buf.Name :=BufName;
; w6 R' j( w0 J/ j2 n7 j, D        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
8 S* ~# y8 {1 l" n4 J( G* y0 d# c        .MaterialFlow.Connector.connect(Buf,Machine);
next;
! y4 D. y% M3 g; Oend;

五五

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

wudi

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