Non conosco il pascal, ma in C (che penso sia molto simile) potresti fare una cosa del tipo, grezzamente parlando:
codice:
Prendere in input il numero da tastiera
  far scorrere un ciclo for da 1 a (n-1), che ogni volta tenti
  di divirere 'a' per il numero che scorre nel ciclo
     se a : numero ciclo è un numero intero
         memorizza 'a'  
Se 'insieme numeri a' (puoi usare un array magari) = 'a'
   stampa blabla
altrimenti
   blabla
Perlomeno, questo è quel che mi è venuto in mente di prima battuta, traducilo in pascal
(non è molto elegante, ma per noi agli inizi dovrebbe andare bene :quipy: )

Poi quando ho un attimo provo a farlo in C :sexpulp:

Spero di esserti stato utile