程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
- d! U- a, F6 D/ p( ~- |        i,j,Rows,Lines:integer;
9 ]! L' w: W  q0 O5 w4 _        MachineName,BufName:string;
        Machine,Buf:object;
) }3 a7 ?1 H# V2 l( S$ j$ sdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
" j& \0 y# C7 u' I' U' _' M                inspect messageBox("Number Wrong...,",50,13)
1 @, E' {7 b0 Y4 r                when 16 then
! \( Y, E, G# }/ `' o                        print "Yes";
                when 32 then
1 R8 W& w2 e6 D  O" [% f                        print "No";
# V( g3 U, U& I0 a% F2 f                else
. d% h# G; ?8 ]+ P1 v! @9 v- w                        print "Cancel";
                end;
5 O5 H0 ^* d% M+ Z        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
8 [& R. j& d4 S* z        for j:=1 to Number_Of_Machine loop
& {9 R/ g$ a3 r. m" U# @4 o                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
( k. H0 Q8 G/ {' @9 I                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
" D) z8 i/ a" i) {% G3 k                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
& t2 E. N' M1 E! V+ [5 T  G, b                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
! y4 }1 r& r% _) H! _. X                                end;
+ T5 ~; A1 A5 O7 K& q4 ^9 R                        end;
3 I( ]/ z/ T/ Y7 \                end;
        next;
next;

end;
# ^* N1 U2 t3 a) X
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
+ z3 r2 |$ y8 z1 g, c& U. ~3 z1 P6 |: U2 S& ^            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
% K4 B! D# w  Y- P                            Lines :=Lines+1;
3 Y8 _( M# Y! 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 g! P" i' d, p5 g3 p                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
2 y2 y- H& i# f        next;
        MachineName :=sprint("M",Rows);
6 g; b7 |. [& c5 D0 s( z        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;
' i4 Z4 m) [9 y$ g5 \. B2 g5 F        Machine.ProcTime :=5;
0 B8 P7 ~8 H  v. a* p( y        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
' [* N6 M2 ?2 ]. W3 @: G+ [        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]);
' ?0 y, D  `3 b* @5 m) g                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
6 R  W* T  b" r# v5 l        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
3 |3 k" l$ P+ @: N% G) v( R

五五

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

wudi

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