程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
8 N: p1 v, J: K% O6 r# a/ u% Qis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
" i4 R7 l1 B9 p1 q/ W" L  rdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
5 ]$ H1 F4 M& \                inspect messageBox("Number Wrong...,",50,13)
. X7 J6 C5 D% Y  _                when 16 then
. \" y# g6 L' o& `6 y, \: L2 O                        print "Yes";
6 \+ \9 `8 H2 t- l% [                when 32 then
5 B5 o! V9 B. w. T. m                        print "No";
% r# t6 V( C, o3 _                else
                        print "Cancel";
                end;
        EventController.stop;
6 ], H8 p  M* @. ~end;
7 t3 Y. D4 h$ Z* Z: Y9 s  G! x# KPartsTable.delete;
, H( L. Z! j6 x2 @9 g+ X! vfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
# r' A. s) g3 W8 {. F- ~- z                        if D_From_To_Chart[j,i]<=0 then
& k# {& z& S5 |6 q2 A- o8 I                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
: i* x( A! ]( k2 C0 g& p                else
; M% {2 B4 x! b5 `" x: @                        if j=i then
2 }3 C( G2 d- j' s( ~                                D_From_To_Chart[j,i]:=0;
                        else
: b1 b" C% r$ }# ~                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
  j, z3 P! S# B4 X1 h3 d9 a                                        EventController.stop;
                                end;
  W' o5 X$ e* @4 f0 y2 U  ]; [                        end;
                end;
        next;
( [" k$ T* S4 ?1 c4 L$ x$ a* N7 t) jnext;

end;

$ B1 D! q" z3 Q5 h7 @2 u! m0 K+ G    Lines :=0;
        for i:1 to Number_Of_Machine loop
# X5 K0 s0 u; h: e1 k        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
* n- l' e. J5 D/ z            for j:1 to Number_Of_Machine loop
3 E1 L. C9 w/ K* r                    if W_From_To_Chart[j,Rows]>0 then
. g2 u" Q" V8 m                            Lines :=Lines+1;
: }$ P8 z  e2 I3 K% Y                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
. x1 ?' ^- |, n                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
* S$ m8 F. ~2 x' A7 C3 r5 R7 J8 j; ]                        PartsTable[3,Lines]:=sprint("Parts");
: X/ Y2 i8 N+ G7 E- \, P( `8 c                        PartsTable[5,Lines]:=Rows;
8 G, p0 R  q) y7 N* C$ y' I6 k3 D                        PartsTable[6,Lines]:=j;
8 x6 ~5 g, v9 b                end;
        next;
2 Z7 H! \7 m' b% L* m, {1 N# }( E        MachineName :=sprint("M",Rows);
( o: R$ i# b. v! N* Z( k8 e        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]);
. p8 h- P8 V+ \5 |# t& t        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
0 \" U  |, Y$ Q+ r0 X8 B' s. r        Machine.ExitCtrl :=ref(Leave);
       
1 |1 ]; ?; i* d5 h, O6 _( p        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;
        Buf.Capacity :=5000;
0 q7 r& R  y' J; G        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
  F* i0 y9 ]& I6 ynext;
end;
6 R1 a, v! K7 Q% O1 n  y

五五

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

wudi

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