程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
! P8 H" T  E; e& O" Z4 k& t6 G2 Zis
' ^( k# [9 B) ?/ `7 G' @' P        i,j,Rows,Lines:integer;
8 P5 o( l2 h1 e, `2 c- R% ~% _$ Z        MachineName,BufName:string;
        Machine,Buf:object;
5 S0 k5 k( Z5 Q* ]# r0 o: U9 r& ido
        if Number_Of_Machine/=D_From_To_Chart.YDim then
0 l: I3 T0 p$ l( ~9 G4 `                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
# P: p5 y7 \4 Z# }! C7 u: X3 m                        print "Yes";
$ y- r( x% C4 l9 X                when 32 then
                        print "No";
                else
5 h' Z: ?6 r3 @4 l                        print "Cancel";
, o& l" B9 n0 P4 d+ i                end;
8 \% |7 _8 O3 p7 Z9 J) b0 Y) \        EventController.stop;
end;
0 P/ Q" G' d! T  `7 jPartsTable.delete;
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
9 U4 X/ J, |' Z. P                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
8 Q! I# M/ K8 k2 I* C8 Z$ j  T                else
                        if j=i then
9 V& z" }1 o6 [4 f4 O6 X                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
5 E6 \) b3 b  c2 ~$ o2 e                                        EventController.stop;
                                end;
                        end;
                end;
, T! u! d  Q! e+ R        next;
next;
" G! c- m+ m" G( d4 X
+ Q# h9 e& z4 i( gend;

0 a; R" \- Q% t$ w$ u6 Z' c0 g    Lines :=0;
) b0 b3 Q! G* k5 g, s5 U! b2 {        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
9 _1 b: m3 Z7 A5 p- x        MachineSequence[2,i]:=Rows;
: b# _* o: \; F$ \            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
8 D. K# O8 O/ T  i                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
+ ?8 b  K8 A) x& p; z                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
* q5 p7 N1 P+ I( N6 n                        PartsTable[5,Lines]:=Rows;
6 v0 {2 G- d  z2 j9 x                        PartsTable[6,Lines]:=j;
) G6 f! W6 v: n5 p% J3 u                end;
# t7 w8 X0 v: R& E        next;
) v" }2 m( z, O; K        MachineName :=sprint("M",Rows);
" c1 l$ v" d$ A- v) T. V4 v        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;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
# @3 ?3 k' o: a/ g  s7 l" W       
        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;
. K& B& K1 H% ^        Buf.Capacity :=5000;
5 P' K$ a, Z* b5 h' ^        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
0 p$ d+ x, m' y) H0 B$ T- Cend;

五五

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

wudi

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