Pascal/Turbo Pascal - Funcion numero perfecto

tengo algun fallo en un ejercicio q me pide calcular un numero perfecto (entre otras cosas) , alguien podria ayudarme a realizar una funcion q devuelva un valor booleano q diga si un numero es perfecto o no (q sea sencillita)

Gracias

necesito el numero pecfecto el 34 para un trabajo en la universidad porfavor