TInfo = integer;
  PElem = ^TElem;

  TElem = record
    info: TInfo;
    next: PElem;
    prev: PElem;
  end;