程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
2 l7 a6 D# a; P/ f# {        Machine,Buf:object;
) {& L/ c4 ?0 c5 L* ~- d. |9 qdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
" f8 Q: R8 M! U8 y. K5 n& k                inspect messageBox("Number Wrong...,",50,13)
; ~& Q6 l$ t' P  a8 @) e( B                when 16 then
                        print "Yes";
                when 32 then
% L9 s. y4 s! ~4 m# J                        print "No";
                else
                        print "Cancel";
  N5 [8 P" B$ t+ E# y: |5 R: U                end;
        EventController.stop;
end;
" _! v+ Q9 k! b6 fPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
1 F, Y' X& h) b! H: D: y                        if D_From_To_Chart[j,i]<=0 then
% E. @  x/ w  r8 I* x                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
' J- @2 d* n5 t; o5 `; F                        end;
8 H0 v, \3 Z+ }, U# v1 s, q                else
                        if j=i then
% ^1 b. E, E" x, N% e                                D_From_To_Chart[j,i]:=0;
2 }: `0 [9 A' C$ r- c. d                        else
8 a  O( f9 L0 s7 p8 ?" S3 @                                if D_From_To_Chart[j,i]<=0 then
1 [& ~3 N/ p, S+ p. L                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
0 g2 w, @! X7 m' R                        end;
                end;
        next;
/ _0 n8 U2 P  j/ h9 \next;

1 x  {8 D7 h0 c) |end;
4 b7 w1 H0 n0 j  I1 B! t
    Lines :=0;
        for i:1 to Number_Of_Machine loop
+ F5 S1 E0 b! N9 s        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
. p* F$ E4 _3 l  K        MachineSequence[2,i]:=Rows;
0 l4 Q. M8 K% p6 Q- O& \            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
) {  B0 u4 P/ S- \9 \# J                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
; z. E$ D* C- c' p                        PartsTable[5,Lines]:=Rows;
( }5 M+ r5 d* b$ _                        PartsTable[6,Lines]:=j;
7 X0 ?1 w/ }5 E$ a6 q/ }0 B2 S9 f* c8 C                end;
+ ]4 X, P1 q9 [& P        next;
& G7 U9 T( V' \% ?: E$ F2 y9 J        MachineName :=sprint("M",Rows);
: U; A5 g$ ~3 J% Q. s        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;
4 U9 L  S; Y3 i) F9 m        Machine.ProcTime :=5;
  _1 ~6 l7 g' E. f+ p        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
1 ^. n8 ?' U% f/ a+ b9 ^9 ~- R# x2 @       
: t+ u3 g9 n  k' [# Z* E        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;
2 [- r& ~5 L/ f        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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