Mark.PAS
  ▀▀▀▀▀▀▀▀▀▀▀
  { Example for Mark and Release }

  var
    p : pointer;
    p1,p2,p3 : ^Integer;
  begin
    New(p1); { Allocate an Integer }
    Mark(p); { Save heap state }
    New(p2); { Allocate two more Integers }
    New(p3);
    Release(p); { Memory reserved for p2^ and
                  p3^ has been released; p1^
                  may still be used }
  end.