Sok fajta videó egyhelyen

if (akt.elozo=NIL) and (akt.kovetkezo=NIL) then
 Begin
  elso:=NIL;
  dispose(akt);
end;

Else
if akt.elozo=NIL then
Begin
 elso:=akt.kovetkezo;
  dispose(akt);
  elso.elozo:=NIL;
end;

Else
if akt.kovetkezo=NIL then Begin
  akt.elozo.kovetkezo:=NIL;
  dispose(akt);
end;

Else
 Begin
  akt2:=akt.elozo; (akt2= segéd mutató)
  akt2.kovetkezo:=akt.kovetkezo;
  akt.kovetkezo.elozo:=akt2;
  dispose(akt);
end;