Написать подпрограмму, вычисляющую сумму делителей данного натурального числа — Pascal(Паскаль)

Program Otstoi_4_1; {Summa delitelei dannogo naturalnogo chisla}
uses crt;
var
n:integer;
function Summ_delitelei(n:integer):integer;
var i,S:integer;
begin s:=0;
for i:=1 to (n div 2) do If (n mod i)=0 then s:=S+i;
Summ_delitelei:=s;
end;

begin
clrscr;
writeln('Vvedi naturalnoe chislo.');
readln(N);
writeln('Summa ravna ',Summ_delitelei(N));
readln;
end.