Pascal/Turbo Pascal - arboles y archivos

Necesito el proceso que me permite sacar registro de un archivo random y colocarlos en un arbol de busqueda binaria.
Agradezco me asesoren al respecto.
Saludos.

Bueno, suponiendo:

type tArbol=^tNodo;
tNodo=record
valor:integer;
Izq,Der:tArbol;
end;

y que el archivo es de integers...

procedure Insertar(var Arbol:tArbol; valor:integer);
begin
if (Arbol=nil) then
begin
new(Arbol);
Arbol^.Izq:=nil;
Arbol^.Der:=nil;
Arbol^.Dato:=valor;
end
else if (Arbol^.Valor<=valor) then
Insertar(Arbol^.Der,valor)
else
Insertar(Arbol^.Izq,valor);
end;

var varArbol:tArbol;

procedure Leer;
var a:file of integer;
val:integer;
begin
varArbol:=nil;
assign(a,'datos.bin');reset(a);
wile not eof(a) do
begin
read(a,val);
Insertar(varArbol,val);
end;
close(a);
end;

Muchas gracias M@rceloL!

M@rceloL o quien me pueda ayudar:
si los datos del archivo que tengo que pasar al arbol fueran string y ademas tengo que pasar el numero de registro en el que se encontraban los datos.., para despues consultar el arbol y con el numero de registro sacar los datos del archivo y armar un listado ordenado.... es mucho pedir?... Al menos necesito una pista.
GRACIAS!!

Bueno, el tipo de dato del nodo del arbol sería:

type tArbol=^tNodo;
tNodo=record
Palabra:string;
NroRegistro:integer;
Ant,Sig:tArbol;
end;

Y el cargar recibiría

procedure Insertar(var Arbol:tArbol;Pal:string;NroR:integer);

se lo pasarías:

Insertar(Arbol,DatoLeido,FilePos(a));

donde a es la variable que usás para leer (a la que le hiciste el assign).

Pucha, ahora me entró la duda si era FilePos o Seek, fijate, uno de los dos es.

¿Se entiende?

Por cierto, para posicionarse en el archivo cuando estés lleyendo el arbol, se usa Seek(archivo,posición).

M@rceloL me estas salvando las papas!!! Te sigo preguntando si no te molesta... sino todo bien, hata ahora me re ayudaste.
Despues d eeso tngo que recorrer el arbol y con cada nº de registro saltar al archivo e imprimir el contenido... sabras como se hace eso??
Mil Gracias!