const TAMAREA = 100;
type
   TipoApontador = Integer;
   TipoChave = Integer;
   TipoItem  = record
		  Chave:  TipoChave;
		  {Outros Componentes }
	       end;
   TipoCelula    = record
		  Item: TipoItem;
		  Prox: TipoApontador;
		  Ant : TipoApontador;
	       end;
   TipoArea  = record
		  Itens		: array[0..TAMAREA-1] of TipoCelula;
		  CelulasDisp	: TipoApontador;
		  Primeiro	: TipoApontador;
		  Ultimo	: TipoApontador;
		  NumCelOcupadas: Integer;
	       end;