Pascal/Turbo Pascal - factorizar un numero

hola, tengo algunas dudas con respecto al codigo de un programa. se trata de introducir un numero entero positivo y que el programa lo factorice y muestre sus factores en pantalla y aquellos que esten repetidos que muestre cuantas veces lo están...no consigo dar con la clave.

alguien me ayuda? gracias

para q el ejercicio este hecho tiene q estar asi pero el problema es que no puedo mostrate cuantas veces lo están pero conformate con esto y luego sigue el resto del programa

PROGRAM ASD
USES
CRT;
VAR
FACT:REAL;
NUM:INTEGER;
FUNCTION FACTORIAL(N;INTEGER):REAL;
VAR I:INTEGER;
ACUM:REAL;
BEGIN
ACUM:=1;
FOR I:=TO N DO
BEGIN
ACUM:=ACUM*1
END
FACTORIAL:=ACUM
END;
BEGIN
CLRSCR
WRITELN('INGRESE UN N');
READLN(NUM);
FACT:=FACTORIAL(NUM);
WRITELN('EL FACTORIAL ES',FACT:8:0);
READKEY
END.


BUENO MEN COMO VERAS ESE ES TODO LO Q YO HICE PERO SOLO FACTOREA ¿HASTA EL 25+ PQ EL FACT DE 50 POR EJM DA=0 PQ EL PROGRAMA NO LEE MUCHOS DIGITOS Y POR ESO LE AGREGE MAS DIGITOS


mandame un mens si te funka [email protected]

y COPIALO PRIMERO A UN BLOCK DE NOTAS PQ ACA NO SE VE MUCHO

GOOD LUCK