1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

PROCEDURE liste_delete(nr:STRING);
VAR
  zeiger, zeiger_vor, zeiger_nach:PElement;
BEGIN
  // 1. Element löschen
  If ( (lAnfang <> NIL) AND (lAnfang.nr= nr)) THEN
  BEGIN
    zeiger:=lanfang.next;   // 2. Element merken
    Dispose(lAnfang);       // 1. Element freigeben
    lAnfang:=zeiger;        // Liste auf 2. Element setzen
  END
  // Sonstiges Element löschen
  // viel Spass bei der Realisierung
  ELSE BEGIN
   zeiger := LAnfang;
   While Zeiger <> nil DO BEGIN
    if zeiger.nr =nr then BEGIN
      zeiger_nach := zeiger.next;
      dispose(zeiger);
      zeiger := zeiger_nach;
     END;
    // Ein Listenelement weitersetzen
    zeiger:=zeiger^.next;
  END;

  END;
END;