Нужна помощь!!!!

[Bauyrzhan]

Найти количество делителей n-значного натурального числа (n>20)

[DM_bite]

program Xd;
var n,i,k: integer;
 begin
 ReadLn(n);
 k:=0;
 for i:= 1 to n div 2 do
  begin
   if n mod i = 0 then inc(k);
  end;
  WriteLn(k);
  ReadLn;
  end.