请问各位大侠：过程内怎样声明过程阿？

Question

.

Answer 1

procedure XXXX;
  procedure yyyy;
  begin
   ...
  end;
begin
  ...
  yyyy;
  ...
end;

Answer 2

procedure XXXX;
var
  ………………
  procedure yyyy;
  var 
    …………
  begin
   ...
  end;
begin
  ...
  yyyy;
  ...
end;

Answer 3

在过程的begin前直接写子过程的实现就可以了。如：
procedure a;
 procedure b;
 begin
  ...
 end;
var
 i:integer;
begin
 for i:=0 to 10 do
 begin
  b;  //调用子过b;
 end;
end;

Answer 4

procedure XXXX;
  procedure yyyy;
  begin
   ...
  end;
begin
  ...
  yyyy;
  ...
end;