程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
! T7 j, x: }; M3 J) m. g- I0 m) `5 t  s        i,j,Rows,Lines:integer;
9 d- V8 |# y6 ^# x* `        MachineName,BufName:string;
: ~: N/ k" o  E  X        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
4 W; N, A5 M9 L) u3 g                when 16 then
                        print "Yes";
- r, ?/ y' S; ?1 D                when 32 then
) @8 a7 L9 h3 ^' Y: Z( i, |& y  K% t                        print "No";
                else
                        print "Cancel";
                end;
, W$ X. u$ L' E9 n" l5 I        EventController.stop;
end;
PartsTable.delete;
0 h$ Y% ]. t. l/ m* w. h$ R3 p. o* K, Vfor i:=1 to Number_Of_Machine loop
) X- Q, l9 [- O& S$ Z        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];
; a; C, v4 Q1 y! {6 C8 Q                        end;
                else
  e& |! N6 O0 I2 `4 g                        if j=i then
" u" b4 g) g6 y1 K' m                                D_From_To_Chart[j,i]:=0;
/ n0 u; y) v: ?3 W8 V. K2 @, W                        else
- S! t3 ]- i- n, b2 N                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
. C3 ?* u9 [6 ^                                end;
/ B5 F5 f/ B2 [                        end;
                end;
        next;
% K* `# J6 ?0 I% L! Q, X, znext;
! v' s6 t) C/ P
end;
6 G) ~9 l. J5 p# v- _5 T# x1 i
    Lines :=0;
0 H# v- l+ ^+ l- z% `* Q# c* f# b& K        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
# x' O$ y0 }) ^! R8 I+ s: f            for j:1 to Number_Of_Machine loop
: G% N: b, h- S3 \$ C$ N% m                    if W_From_To_Chart[j,Rows]>0 then
' m0 ~5 g& n5 O6 O5 G  x1 d6 A                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
2 j6 p7 A  Q1 x; D3 V2 y0 h9 V                        PartsTable[3,Lines]:=sprint("Parts");
8 G: U: n" p! z& h, @                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
& w, p4 b) |3 w/ R$ r8 K# T) A/ P6 h" s        next;
        MachineName :=sprint("M",Rows);
; K, s* d4 M2 }7 Y7 g        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;
6 L9 U( y+ v" K/ Q5 c5 l; z        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
. s: N  x% k5 W/ 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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
7 n9 k8 J' U& cnext;
end;

五五

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

wudi

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