程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
: z. f9 H- T" F8 }& M8 Z" f        i,j,Rows,Lines:integer;
! r% m* |$ W# h# c8 }" b) b1 l        MachineName,BufName:string;
- s' u9 S- a0 b7 f        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
" R. C! @) B" s1 X% j. t! u. G& q                when 16 then
                        print "Yes";
( w6 ~- I) @* g; r% V                when 32 then
                        print "No";
                else
- i2 B7 i& Y3 u! z& M* m* P                        print "Cancel";
                end;
" j: v& v  Z7 d; W% o) I# t        EventController.stop;
$ s( k, x  f, ^4 e- Jend;
! S" U6 Y; [: N9 j& NPartsTable.delete;
$ u) C; L; ~% P% r% E; I) q. x9 ^for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                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];
2 R# [# D. A' L5 N) j" P) _, y' ~0 T                        end;
6 l% N1 E  h9 w- X2 N2 E                else
                        if j=i then
  t! R; j6 t0 K6 H; B  H                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
0 p0 M, D4 y  l% w* }7 b8 z$ g6 X+ w* s                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
- f' a: N0 P- L                                end;
                        end;
                end;
        next;
next;

end;
* l) C7 v/ i2 i
# C: _! N6 q) R0 |: N    Lines :=0;
: ]# v& _2 V+ j        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
- j) A9 Y1 q9 y, y* P( I1 K- N+ @        MachineSequence[2,i]:=Rows;
" y- X/ G7 B6 l4 y& w- d# j% @            for j:1 to Number_Of_Machine loop
, z. p& T( p3 x5 I4 {) G                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
1 {6 {0 g  Y3 E" t3 n! V                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
# y7 |  L: B' U) f0 N+ G. E                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
3 _: G! v9 j$ }* }. W. g                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
* H: g, o$ q5 u        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]);
: b' d% q- H! U" {* P2 b        Machine.Name :=MachineName;
. X) r0 B$ V2 B9 d$ a: y4 J        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
6 g) N! |/ c7 U9 Y% o        Machine.ExitCtrl :=ref(Leave);
) v! D, `+ q; ^; z, v       
        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]);
5 v, c" J: Q# H, Q/ q; f                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
+ V$ [; ]) P  g. c        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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