Дано натуральное число N больше 1. Найдите количество его делителей. (Программа в паскале на цикл for)

program sample;

var

num, i, num_del:integer;

begin

writeln ('Введите число: ');

read (num);

num_del : = 0;

writeln ('Делители: ');

for i : = 1 to num do

begin

if num mod i = 0 then

begin

write (i, ', ');

num_del : = num_del + 1;

end;

end;

writeln;

writeln ('Количество делителей: ', num_del);

end.