程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
# l  n; P7 _9 p3 G4 sis
- C; p7 t) j3 z1 Q* E        i,j,Rows,Lines:integer;
1 J4 {* E" ?# o& k$ c& |7 `& p        MachineName,BufName:string;
        Machine,Buf:object;
do
  I% i4 M  q9 j5 g* N  j% q        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
4 `) V7 G% `4 J& h8 X- p                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
& q( c! x6 X* R8 R                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
3 ~& c, ]6 s+ [. D        for j:=1 to Number_Of_Machine loop
                if j<i then
/ c1 W0 H1 {+ s5 a( D" m. V/ ?: [) `( H                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
2 U6 d! @; Y+ U4 R- i$ P0 D$ z1 [                        end;
- }0 Z& f9 I- `                else
! A9 p6 t( x8 O( j4 ~                        if j=i then
% C+ U2 f; I* o- P* w                                D_From_To_Chart[j,i]:=0;
, F7 H- d1 f) X                        else
% W& m. r: L8 x  N- M$ \5 ~                                if D_From_To_Chart[j,i]<=0 then
9 C  K3 A6 ~0 u                                        messageBox("distence<=0...,",50,13);
9 l# c& c, T' I                                        EventController.stop;
9 w) f" A$ ^. I& R( M                                end;
                        end;
                end;
5 r1 [3 i* R8 Q9 L6 h, d/ `        next;
, ^. T0 q) z, W& U" Pnext;

1 E0 \& m. `5 F7 cend;

8 j, Y" L: M% r    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
$ h" }( K. }, ~, S0 h+ U        MachineSequence[2,i]:=Rows;
8 L! ~5 x2 \) ~( O. a            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
  z1 P2 O3 G& e) ], f                            Lines :=Lines+1;
9 h; H# z) f8 T8 F$ y9 ^                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
$ ?9 ~7 I* p  ^3 |5 n  f" o; W/ W, D                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
  ?9 e) a' T. f" f# X/ ~* C                        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]);
        Machine.Name :=MachineName;
4 n1 T( f6 w3 t5 I- a7 f        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
5 O9 ?% E; U6 ]. Z6 v        BufName :=sprint("BF",Rows);
: R5 r& X. ^8 \2 U        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;
/ U! s! ~; x" i! P        .MaterialFlow.Connector.connect(Buf,Machine);
4 p& w5 |5 N6 p7 dnext;
end;

五五

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

wudi

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