Suma divizorilor numerelor pana la n

>Calculeaza suma divizorilor numerelor pana la n.

program sumadiv;
var nr,i:integer;

function divizor(i:integer):integer;
var j:integer;
begin
if nr mod i=0 then divizor:=i
              else divizor:=0;
end;

function sumadiv(n:integer):integer;
var suma:integer;
begin
if n>=nr then suma:=0
         else suma:=sumadiv(n+1)+divizor(n);
sumadiv:=suma;
end;

begin
write('Dati nr: ');
readln(nr);
write(sumadiv(2));
readln;
end.
{PascalZone.uv.ro}