Найдите количество делителей натурального числа n

Программа на Паскале:

program xxx;

   var i, n, k : integer;

begin

  write('введите число n-');

  readln(n);

  k=0;

  for i:=1 to n do

    if n mod i = 0 then k:=k+1;

  write('количество делителей = ', k);

  readln

end.