Информатикам

Нужно было написать программу, для определения простого и составного числа - пользователь вводит число, и получает результат в виде сообщения "простое" или "составное"

program prost_sost;

var a, n, c:integer;

begin

readln(a); //вводим число

for n:=1 to a-1 do //задаем цикл проверки всех возможных делителей

if a mod n=0 //проверяем, делится ли а нацело

then c:=c+1; //если делится, то увеличивает счетчик делителей на 1

if c=o //проверяем, нашлись ли делители

then writeln('простое') //если не нашлись

else writeln('составное'); //если нашлись

readln;

end.

Опираясь на эту программу, напишите свою, которая не только определяет простое или не простое число, но и выводит все его делители.