1. Delete :

Step 1 : If LOCP = NULL , then :
Set START := LINK[START]
Else :
Set LINK[LOCP] := LINK[LOC]
Step 2 : Set LINK[LOC] = AVAIL
Step 3 : Exit.

2. Delete ITEM:

Step 1 : Call FINDB(INFO,LINK,START,ITEM,LOC,LOCP)
Step 2 : If LOC = NULL, then : Write : ITEM not in list.
Step 3 : If LOCP = NULL , then :
Set START := LINK[START]
Else : Set LINK[LOCP] := LINK[LOC]
Step 4 : Set LINK[LOC] := AVAIL and AVAIl := LOC.
Step 5 : Exit