Pascal/Turbo Pascal - metodo de hash en pascal ayudenme

no sean gachos necesito que me pasen el metodo de hash en codigo de pascal no sean gachos, ayudenme por favor lo necesito para estos dias, ayudenme por favor....

gracias a quien quiera que me ayude..

Vayamos desde el principio, ¿qué entiendes por hash?.
Para poner un punto inicial a la respuesta voy a echar mano a la deficinión que aparece en el libro "Programación Administrativa en Turbo Pascal de Tomás Eggarter" (Magazine Publishing 1993) que dice.

Definir una fórmula R=f(C) que asigne a cada clave C un número de registro R comprendido entre 1 y N. En lo posible la fórmula debe asignar registros distintos a claves distintas. El valor de R se llama "código hash" de la clave C.

Por tanto se desprende que no hay una unica forma de generar un hash, y que cada uno puede hacerlo como mejor le parezca teniendo en cuenta .
El tamaño de la clave.
Condición de Unicidad de dicha clave.
Orden de busqueda de la clave.