program recordtest;

var
  iptr : ^Integer;
begin
  while True do
    new(iptr);
end.