Помогите с длинной арифметикой!

[Марина*]

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

[Monte-Kristo]

uses crt;
label m1;
var n,k,i:longint;
begin
clrscr;
m1:
writeln;
write('Vvedite chislo n>20: ');
readln(n);
if n < 20 then
begin
writeln('Chislo n doljno bit >20');
goto m1;
end;
k:=0;
for i:=1 to n div 2 do
if n mod i = 0 then k:=k+1;
writeln('Y chisla ',n,' kol-vo delitelej = ',k);
readln;
end.