Дано целое число ,не меньшее 2.вывести сколько делителей у этого числа. в паскале решение для 8класса

Var n,i,k:integer;
begin
write ('Введите целое число (n>=2): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.