RosettaCodeData/Task/Memory-allocation/Pascal/memory-allocation-1.pascal

type
  TByteArray = array of byte;
var
  A: TByteArray;
begin
  setLength(A,1000);
...
  setLength(A,0);
end;