Unterschied zwischen drei Pointerketten-Typen

[VeeJay]

Hallo Leute,
ich schreibe wieder mal eine tolle Informatikklausur und wäre für eure Hilfe bei dieser Aufgabe echt dankbar. Also, ich habe 3 Interfaces vorgegeben und soll die Unterschiede zwischen ihnen und ihre Vor- und Nachteile sammeln. Allerdings sehen die für mich größtenteils gleich aus. Wäre cool, wenn ihr mich aufklären könntet 8)

1.Interface: "Dynamische Liste"

Delphi-Quellcode:

Unit Liste;
//Das Objekt LISTE mit allen Methoden:        
Interface
TYPE  TElement = string;
     //Listentyp als dynamisch verkettete Zeiger:
      pListe = ^Knoten;
      Knoten = RECORD
                     element : TElement;
                        nach : pListe;
           END;
     //Das Objekt Liste mit allen Methoden:
     TListe = class (TObject)
             anfang : pListe ;
             aktuell : pListe ;
        Constructor create;
           {Erzeugung der leeren Liste. ( WICHTIG!)}
        procedure insert (ein:TElement);
           {Vor das akt.Element wird ein El.eingefügt.}
        procedure delete;
            {Das akt.Element wird gelöscht.}
        procedure reset ;
            {Das akt.Element wird auf den Anfang gesetzt.}
        procedure next  ;
            {Der Aktuellzeiger wird versetzt.}
        procedure show(Var aus:TElement);
            {Das akt. Element wird an die Var.aus übergeben}
        procedure update(aend :TElement);
            {Das akt.Element wird überschrieben.}
        procedure last(ein: TElement);
            {Hängt ein neues Element am Ende an.}
        function  empty : boolean;
            {Liefert true, wenn Liste leer}
        function  ende : boolean;
            {Liefert true, wenn Listenende erreicht.}
     End;

2.Interface: "Schlange"

Delphi-Quellcode:

unit Schlange;
 //Hier wird das Objekt Schlange definiert:      
interface

  TYPE        TElement = String;

 //Der Datentyp Schlange als Zeigerkette:
    pSnake      = ^TKnoten;
    TKnoten   = RECORD
                  inhalt : tElement;
                  next   : pSnake;
                END;
 //Das Objekt Schlange mit allen Methoden:
    TSchlange = class (TObject)
                anf, ende : pSnake;
          constructor create;
          function empty:boolean;
          function show :TElement;
          procedure insert (x:TElement);
          End;

3.Interface: "Keller"

Delphi-Quellcode:

 unit Keller;
// ADT Keller     
interface

TYPE
     TElement = String;
 // Der Datentyp Keller als Zeigerkette:
     pKeller = ^knoten;
     knoten    = RECORD
                   element : TElement;
                   next    : pKeller
                 END;
//Das Objekt Keller mit allen Methoden:
     TKeller = class (TObject)
              pTop   : pKeller;
     Constructor create;
     Function  empty  : boolean;
     PROCEDURE insert (x : telement);
     Function  show: TElement;
     END;

Danke!