type versElement = ^Element;
         Element = record
                     info : integer;
                     suivant : versElement;
                     end;

{ Debut est le pointeur de debut de chaine, 
  Resultat contiendra le resultat - nil ou un pointeur vers un
  element de la chaine }

procedure Suppression(var Debut, Resultat : versElement);

var courant : versElement;
    fin : boolean;

begin
  fin := false;
  while not fin do begin
    if Debut = nil then begin {chaine vide}
      fin := true;
      Resultat := nil;
      end
    else if Debut^.suivant = nil then begin {un seul element}
      Resultat := Debut;
      fin := true;
      end
    else begin
      {on efface le premier element}
      courant := Debut;
      Debut:= Debut^.suivant;
      dispose(courant);
      if Debut^.suivant = nil then begin {il y avait 2 el} 
        dispose(Debut);
        Resultat := nil;
        fin := true;
        end
      else begin {plus de 2 elements}
        courant := Debut; { on est sur qu'il n'est pas nil}
        while courant^.suivant^.suivant <> nil do
          courant := courant^.suivant;
        dispose(courant^.suivant);
        courant^.suivant:=nil; 
{c'est bien necessaire afin d'indiquer la fin de la chaine}
      end; {else/begin}
    end; {else/begin}
  end; {while}
end; {Suppression}