Pascal/Turbo Pascal - ayuda con este programa si

por favor sera que me pueden ayudar con un programa veran:

elaborar una unidad que permita determinar si un numero ingresado es:

*deficiente: que sus factores primos<numero
ejm: 9:(1,3,3)sumados sale 7 por lo tando es deficiente
*abundante: que sus factores primos>numero
ejm:5(1.5) su suma sale 6 por lo tanto es abundante
*perfecto:que sus factores primos sean iguales al numero
ejm:6(1.2.3) su suma es 6 por lo tando es perfecto
en turbo pascal con procedimiento y funciones