forward 的用法很简单的啊但我不会？？？？//

Question

大家好：
  请你们看一下我下面的程序好吗？
.....
.....
.....
var
  Form1: TForm1;implementation
var
  alpha:integer;
  procedure test(a:integer):forward;//????????????????????????????????????
  procedure test1(var a:integer);
    begin
      a:=a-1;
      if a>0 then
        test2(a);
      writeln(a);
    end;
  procedure test2(var a:integer);
    begin
      a:=a div 2;
      if a>0 then
        test1(a]);
    end;{$R *.dfm}end.我的问题是：我在运行时，系统提醒我：forward 没有声明
  请问：我怎么声明“forward”啊？？？
        它是一个保留的关键字还要用声明啊？

Answer 1

procedure A; forward;procedure B;
begin
  A;
end;procedure A;
begin
  B;
end;

Answer 2

procedure test2(var a:integer); forward;procedure test1(var a:integer);
begin
  a:=a-1;
  if a>0 then
    test2(a);
  writeln(a);
end;procedure test2(var a:integer);
begin
  a:=a div 2;
  if a>0 then
    test1(a);
end;