程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
  n) L2 t: i- n6 j$ ?( ?4 kis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
; D/ k" j- O( I5 Y' [( h        Machine,Buf:object;
do
& s9 b( c; w3 G! n5 T        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
  t# V6 m0 ?9 i! w                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
% m, x# h, Q& w0 e% X                else
9 s" P8 W7 s/ T7 e) h9 Q                        print "Cancel";
! M& S0 a/ ?& u6 r8 E9 S$ N                end;
        EventController.stop;
3 H& R8 I) a" P' a% Xend;
; B) b; @" \4 O3 rPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
  m) c" ^8 ^4 R6 _8 ^' f1 n                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];
8 ~$ s' J% Z/ s# w9 J! z# G                        end;
                else
6 O! _" ~4 O' X4 Z                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
5 r- R; T  ]- O0 T                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
1 n' ]7 a$ D( t& G                                        EventController.stop;
  F1 Y5 o2 |! i5 Q% }                                end;
                        end;
8 O7 n6 B: d5 {9 r0 {8 \                end;
        next;
next;

# H* R# A3 g! N7 qend;
" u# Z# z' K" e; n% o
" U% d5 d, c6 ]- Z" q    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
3 [! R/ D0 [( |6 I0 ]& \  T9 ~0 L            for j:1 to Number_Of_Machine loop
4 E/ w/ i5 d! ^0 u                    if W_From_To_Chart[j,Rows]>0 then
7 y6 a2 i7 l8 v/ O& `" l( D/ [                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
7 P1 k. Z1 T6 C9 R                        PartsTable[5,Lines]:=Rows;
2 g- Q; W( E5 [1 l+ l2 g& O% N                        PartsTable[6,Lines]:=j;
                end;
: F8 t( S" k- c& l' |        next;
! S! w* G. Z) j        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]);
1 N1 I6 S9 n9 q6 A: v; `; @) e+ A        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
0 k+ M2 o: H$ G        Machine.label :=sprint("machine_",Rows);
; x( S6 Q3 _% a        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
# z% f8 c( r# p+ }, _+ _        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]);
4 ~4 K) ~( B& f' V2 }                 Buf.Name :=BufName;
) b2 J, C; N+ a6 L6 u7 i5 }        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
$ }8 j3 L, J+ E' e8 q: }        .MaterialFlow.Connector.connect(Buf,Machine);
3 {6 Z8 g) P. B6 C* \( A( Z' qnext;
end;
$ \  |2 s, ]1 s" }- t3 ?: g8 ]. L

五五

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

wudi

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