unit unit0001;

interface

procedure p1;

implementation

uses
  unit0002a;

procedure p1;
begin
  p2;
end;

end.