Kako resiti u pascalu

Napisati program koji pronalazi i stampa sve proste delioce unetog broja n.
Ovaj zadatak ne deluje tesko , ali ne znam zasto ga ne mogu resiti.