DS MOC NOI DON

Procedure duyerds(L);

p := L;

While p ≠ nil Do

Begin

tham nut tro boi p;

p := link(p);

end;

Return;

Procedure bosung(L,M,X)

New(p);

Info(p) := X;

link(p) := link(M);

link(M) := p;

Return;

Procedure loaibo(l,m)

If m = l Then l := link(m)

Else Begin

p := l;

While link(p) ≠ m do

p := link(p);

link(p) := link(m);

End;

dispose (m);

Return;