程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
# u$ K- o# }) \$ ]is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
: c4 r1 X2 Q7 Z/ H' P+ ?) E                inspect messageBox("Number Wrong...,",50,13)
/ v3 G7 d) n; u+ y, d                when 16 then
                        print "Yes";
2 a+ E! [6 g: j; w                when 32 then
0 N; q8 O* j- K$ e8 o: Y                        print "No";
) C: `6 x- |, J7 H                else
                        print "Cancel";
& s+ d* r6 T; s+ n9 k' V- K( O                end;
        EventController.stop;
  k) v0 e# o2 |' e8 Kend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
3 u& ?8 I: |8 p% _, l% j4 n        for j:=1 to Number_Of_Machine loop
                if j<i then
( ~& E+ R% }/ J5 }  P+ V. a                        if D_From_To_Chart[j,i]<=0 then
# L/ ]$ l, \- c2 R/ m2 t: J- i                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
  t5 h" M9 V/ |1 {$ i: ^% ?' J7 a  l                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
0 Q/ a) y/ ^$ s1 C                                        EventController.stop;
                                end;
. M/ ~- h5 P2 A, w                        end;
- b) y+ ^; w% t                end;
; @: c2 P) U$ A# m# O        next;
next;
+ e! c# K9 N! y7 X" [8 h0 l
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
0 S  v/ a6 J+ |0 [8 Y        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
: V' e- I, H& z% F; ^        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
9 L& _# s, T. T' A' R$ a- m                    if W_From_To_Chart[j,Rows]>0 then
' u8 e/ w; @( Z  P3 o! u                            Lines :=Lines+1;
5 h6 n1 k4 M6 |6 T" f* V; J6 B                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
+ W& b% ?& c: c, v# I                        PartsTable[5,Lines]:=Rows;
% p4 v& N3 g: t; V* Z1 C' A                        PartsTable[6,Lines]:=j;
                end;
6 h" P# s, S6 }) y! F" P; _        next;
9 \  x6 n9 ^$ ~9 z: V# z" u        MachineName :=sprint("M",Rows);
2 `$ W4 S  @/ d/ l" F& p        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]);
# V- s( W+ g8 }% V# Q& a6 [        Machine.Name :=MachineName;
7 |; }% w/ @  g0 o' x+ J/ z        Machine.ProcTime :=5;
( r' z) ^# ~6 H& t) |; U. e* V        Machine.label :=sprint("machine_",Rows);
! K7 W& _2 _; j7 H# H1 [, D- R5 [        Machine.ExitCtrl :=ref(Leave);
  p8 q- U" R& \: S6 c- H       
7 O; S( |9 w$ o        BufName :=sprint("BF",Rows);
4 F& v# ~) u9 W( ^6 W        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;
0 X! t- H! t' W! r. u$ H  g% j1 P        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
  v$ I0 o1 ~7 o8 M% g$ i" rnext;
end;

五五

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

wudi

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