type
  PLancoltLista = ^LancoltLista;
  LancoltLista = record
    adat : integer;
    next : PLancoltLista;
  end;