Pascal/Turbo Pascal - ejercicio con procedure y descomposicion en factor

Hola!!

Estoy haciendo un ejercicio en el que me piden que mediante un procedimiento, al introducir un numero me muestre en pantalla su descomposicion en factores primos.

Si alguien me echa un cables estaria muy agradecida, ya que voy un poco perdida y no se ni como plantearlo, gracias!

¿Qué llevas hecho?

hola, pues mira resulta que es que no se por donde coger el ejercicio, por que ese apartado esta dento de una opcion de un menu, y eso si lo he hecho, pero en la descomposicion si ando un poco perdida, asi qe si me pudieseis dar una pista estaria agradecida,gracias.

Creo que lo tengo, a ver:

procedure FactoresPrimos(N: integer);
var
Cociente, divisor, resto: integer;
begin
Cociente:=N;
Write('Cociente: ',Cociente);
while Cociente > 1 do
begin
divisor:=2;
resto:=1;
while resto > 0 do
begin
resto:=Cociente mod divisor;
if Resto = 0 then
begin
Cociente := Cociente div divisor;
WriteLn(' Divisor: ',divisor);
Write('Cociente: ',Cociente);
end; { if }
inc(divisor);
end; { while }
end; { while }
end;

Es iterativo aunque lo ideal sería hacerlo recursivo (aunque también dudo que sepas la diferencia y aunque la supieras tampoco importa :P).