Inhaltliches Löschen aus einer Liste          

PROCEDURE Loeschen(Inhalt : T_Inhalt; VAR L : T_Liste);                                           

VAR hilf_L : T_Liste;

  BEGIN

     IF L<>NIL THEN

        BEGIN

          IF L^.Name = Inhalt

          THEN L:=L^.Nachfolger

          ELSE

             BEGIN

                hilf_L:=L;

                WHILE (hilf_L^.Nachfolger <> NIL) AND (hilf_L^.Nachfolger^.Name <> Inhalt)

                DO hilf_L:=hilf_L^.Nachfolger;

                IF hilf_L^.Nachfolger<>NIL

               THEN hilf_L^.Nachfolger:=hilf_L^.Nachfolger^.Nachfolger;

            END;

      END;

  END;