程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
3 J; R/ r9 C0 x$ T7 g) _2 D. `) A        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
% V  \, Z6 ~4 J+ U$ }) P) kdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
7 @. L8 R1 W: w5 x4 |                inspect messageBox("Number Wrong...,",50,13)
) b- S  |9 [3 B                when 16 then
$ d2 ?9 K- \7 n* p$ b! y! k                        print "Yes";
                when 32 then
1 n2 ~3 j) Z3 f                        print "No";
# z, ]  b$ t1 P5 g                else
                        print "Cancel";
                end;
        EventController.stop;
8 x3 e) ?, Z8 @0 P( ]! g) e% hend;
/ u) @  ~% C" [; Y  s" qPartsTable.delete;
* C% ~/ `. B5 |5 d6 c( [for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
0 U/ V1 M: v8 f# J' m# W+ {) D                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
: n/ e: z  @( F2 V                else
                        if j=i then
. l1 }# A$ J. D( e, {! e% ?% j" n: g                                D_From_To_Chart[j,i]:=0;
& u: M9 z& c: N/ r" V0 ?                        else
9 h3 F) n) @2 j# c* d6 t- Y                                if D_From_To_Chart[j,i]<=0 then
. T* d: V( q% R, V" [3 U/ e                                        messageBox("distence<=0...,",50,13);
* q) F" P" h8 o( ~  u0 R" J! h                                        EventController.stop;
                                end;
9 X1 c7 I  F  o                        end;
! ~8 u" X4 ~9 c( x* a. O5 Z                end;
        next;
4 r. H$ B! g3 H2 ~# A+ Inext;
3 Z, [: ?% w2 q! X9 ^% p9 C7 G
end;
6 J% [4 ]/ F/ }8 d- C# {
    Lines :=0;
( z1 h5 g8 {; S& c, {! |, O        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
  ~' J: n9 E# N1 `7 L! G8 L9 q                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
$ r- \1 m, P0 i* r! o$ K+ q: o                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
8 D# ^4 Q+ E! Y! N* G( |                        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]);
2 t7 U" J* B8 A! }$ J/ G* p3 D$ y        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
) V+ Q! W/ W5 J0 H        Machine.ExitCtrl :=ref(Leave);
       
0 R) P3 f) ^1 A$ K( ]& C        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]);
8 \* M# n$ r! O1 W                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
# z' i% a! H% l7 Y% n        Buf.ProcTime :=0;
4 y. r( V7 B1 u* a# U        .MaterialFlow.Connector.connect(Buf,Machine);
& U3 v( ?3 o4 N, E7 |next;
) k; y. S- J2 h3 m5 [# U8 V+ s; h! Tend;
. A2 V5 v6 J7 X' Q

五五

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

wudi

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