mark.pas

 {Mark.PAS}
 
 { Пример программы для процедур Mark и Release }
 
 Var        P : Pointer;
   P1, P2, P3 : ^Integer;
 
 Begin
  New(P1); { Распределяем память под Integer }
  Mark(P); { Сохраняем состояние кучи }
  New(P2); { Распределяем память под еще два числа типа Integer }
  New(P3);
  Release(P); { Память, резервированная для P2^ и P3^
                освобождается, а память для P1^ все еще
                может быть использована }
 End.