Libére l'espace pointé pascal/delphi

unit UnitePile;

interface

type Elem=integer; // par exemple

     Pile=^Niveau;
     Niveau=record
             e:elem;
             p:pile;
             end;

procedure Decapiter(var p:Pile); // supprime le sommet de la pile
procedure Supprimer(var p:Pile); // supprime toute la pile
procedure Initialiser(var p:Pile); // associe à p une base de pile
procedure Empiler(var p:Pile;e:Elem); // rajoute "e" au sommet de la pile
procedure Depiler(var p:Pile;var e:Elem); // extrait le sommet de la pile

function Sommet(p:Pile):Elem; // accède à l'élément du sommet
function TaillePile(p:Pile):integer; // donne le nombre d'élément empilé

implementation

const ElemZero=0; // dépend de Elem, utilisé dans Initialiser

procedure Decapiter(var p:Pile);
var q:Pile;
begin
if p<>nil then begin
               q:=(p^).p;
               dispose(p);
               p:=q;
               end;
end;

procedure Supprimer(var p:Pile);
begin
if p<>nil then begin
               Decapiter(p);
               Supprimer(p);
               end;
end;

procedure Initialiser(var p:Pile);
begin
Supprimer(p); // nécessite que p ai déjà été affecté (nil par exemple)
new(p);
(p^).p:=nil;
(p^).e:=ElemZero;
end;

procedure Empiler(var p:Pile;e:Elem);
var q:Pile;
begin
q:=p;
new(p);
(p^).e:=e;
(p^).p:=q;
end;

function Sommet(p:Pile):Elem;
begin
result:=(p^).e;
end;

procedure Depiler(var p:Pile;var e:Elem);
begin
e:=Sommet(p);
Decapiter(p);
end;

function TaillePile(p:Pile):integer;
begin
if p=nil then result:=0
         else result:=TaillePile((p^).p)+1;
end;

begin end.

program SansNom; uses UnitePile;

var p:Pile;
begin
p:=nil; Initialiser(p);
//...
Supprimer(p);
end.