{$mode delphi}

program tptrdynarr;

var
  p: pointer;
  a: array of byte;
begin
  p:=nil;
  a:=p;
end.