当两个过程需互相引用时 可以用forward
eg
procedure a;forward;
procedure b;
begin
a;
end;
procedure a;
begin
b;
end;
现在问题来了 我有两个记录
type
person_type=record
name:string;
Add:Add_type;
end;
Add_Type=record
Person:person_type;
Road:String;
......
end;
这样就不行了 那有没有办法像forward那样预定义啊
（这并不是自找麻烦，我举的例并不能说明全部，如果将两个类型并为一个，代码块就会变大，就会变得混乱，而且不利于更新和维护，就像物理和化学两科，它们息息相关，但是将他们合并为一个又不合情理了）
eg
procedure a;forward;
procedure b;
begin
a;
end;
procedure a;
begin
b;
end;
现在问题来了 我有两个记录
type
person_type=record
name:string;
Add:Add_type;
end;
Add_Type=record
Person:person_type;
Road:String;
......
end;
这样就不行了 那有没有办法像forward那样预定义啊
（这并不是自找麻烦，我举的例并不能说明全部，如果将两个类型并为一个，代码块就会变大，就会变得混乱，而且不利于更新和维护，就像物理和化学两科，它们息息相关，但是将他们合并为一个又不合情理了）
