Pascal/Turbo Pascal - ayuda con Funcion

Hola tengo un problema tengo que hacer una funcion de dispersion para una clave alfanumeria de 12 caracteres en los que los 5 primeros son letras y los restantes son numeros. debe dispersarse bien en 370 cubos.
He probado muchas cosas que e ido pensando pero si alguien sabe funciones que puedan servir que me lo diga.

gracias.