const TAMANHODAPAGINA = 512;
      ITENSPORPAGINA = 64; { TAMANHODAPAGINA  / TAMANHODOITEM }
type Registro = record
                  Chave: TipoChave;
                  { outros componentes }
                end;
     TipoEndereco = record
                      p: integer;
                      b: 1..ITENSPORPAGINA;
                    end;
     TipoItem = record
                  Reg: TipoRegistro;
                  Esq, Dir: TipoEndereco;
                end;
     TipoPagina = array [1..ITENSPORPAGINA] of TipoItem;