Pascal/Turbo Pascal - duda sobre numeros perfectos

Lo primero es saludar, que tal todo?? Ahora al grano. Necesito hacer una practica en la que tengo q ir leyendo un fichero con numeros, para ir comprobando cual es el primero que cumple que es perfecto. El problema que tengo es que no se como crear una funcion que me diga si un numero es perfecto.
La definicion de numero perfecto es esta: un numero es perfecto si es igual a la suma d todas sus divisiones excepto el mismo. Por ej el 6=1+2+3 o el 28=1+2+4+7+14
A ver si alguien me echa una mano, porque tengo hecho todo lo que es el programa, a falta de conocer esta funcion, y meterla dentro del codigo.

Gracias de antemano, un saludo