程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
7 G2 i! o) L8 U6 Z        i,j,Rows,Lines:integer;
9 L$ u# M6 L9 u% a7 n: c        MachineName,BufName:string;
) j7 B/ Q  l" g        Machine,Buf:object;
9 I) |% f5 N: ]/ P6 jdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
  P( k( B' L- Y# w% A                        print "Yes";
3 x7 n: v# x! |( U& K+ m1 @                when 32 then
# H+ r% g% {- x3 `                        print "No";
                else
7 I! G2 [+ Q% H8 F% M9 @: ]; v                        print "Cancel";
                end;
        EventController.stop;
  \0 D. O0 A0 n( ?end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
3 h% h$ b. ~' V1 Q+ d% [0 T% n        for j:=1 to Number_Of_Machine loop
( n% w( O, F" Z' ^. g                if j<i then
3 y2 X( u0 ^1 A* `8 x( Y% a: S                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
) {% _  P) V1 a" Q2 u! `3 Y+ D                                D_From_To_Chart[j,i]:=0;
" d" V; X3 }0 @8 F3 @& H                        else
  n* I# ]5 C3 t% \* N- J2 _# W                                if D_From_To_Chart[j,i]<=0 then
, ]$ {' _7 T: O1 X7 ^0 o  ]                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
8 `: O) O" `6 B  d, X                                end;
* f# B& p  P) X8 W" [  @                        end;
                end;
        next;
( ~% i2 x$ i3 N5 e% o6 q  w& }' nnext;

7 [' e- u. L  n$ C% J* B5 B4 qend;

( @# j$ F* S5 K$ L$ u0 U0 i    Lines :=0;
4 |! g3 H8 ^& {+ L  J1 c5 ^* T        for i:1 to Number_Of_Machine loop
) y% S" }" r/ q5 l& p        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
% w2 r6 e7 b; B2 ~9 Q, B( F        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
& f7 X8 J# R  [: Q1 V6 m  {0 n                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
5 T% E/ C1 Y7 C, f0 a" X% i+ k                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
' y+ v. ~5 C7 E1 \: W7 i' l1 n                        PartsTable[6,Lines]:=j;
3 G* |6 {/ Z/ @- H: \( m! h1 }                end;
        next;
        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]);
2 K4 @3 B7 r0 T) M3 V        Machine.Name :=MachineName;
; w8 K1 g- K9 S        Machine.ProcTime :=5;
- m% z, M: ?* N" h! Y4 s2 Y. O        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
) f' G! O6 L1 @: S       
: z5 E; ]! ^9 @$ l+ B- d; A        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;
# T" r) A9 l2 @' c9 o8 q  n        Buf.ProcTime :=0;
  Y- C9 C9 g6 s" o" @' ?+ k9 e9 X        .MaterialFlow.Connector.connect(Buf,Machine);
next;
- n$ C2 v4 p0 b, C; Aend;
9 j, R* v" |& z4 R1 X

五五

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

wudi

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