program ideone;
type R = record x,y: real; end;
var
p:pointer;
pi:^integer;
pr:^R;
begin
  getmem(p,1024);
  pi:=p+sizeof(r);
  pr:=p;
end.