unit Unvar;

interface

uses UnList;

var
  Blist, Elist: PElem;

implementation

initialization
Blist := nil;
Elist := nil;

finalization
FreeList(Blist, Elist); // освобождение памяти
end.