Pascal/Turbo Pascal - ARBOL COLOREADO?

Hola gente....dado un arbol binario coloreado(arbol binario en el q cada nodo es rojo o azul..)....como puedo desarrollar un procedimiento o funcion en pascal...para q ...me diga de q color es arbol...si es azul o rojo....o neutro en el caso de q la cantidad d nodos rojos y azules sean iguales.....??...help me!
Muchas Gracias!