type
  TPi=^integer;

procedure mydispose(p:TPi);
var t:Tpi;
begin
  t:=p;
  dispose(t);
end;

var buf,buf2:TPi;
begin
new(buf);
buf^:=44;
mydispose(buf);
dispose (buf);
end.