Написать программу в паскале для нахождения суммы всех делителей натуральных чисел от 5 до 20. нужно))

Program z1;
var s:integer;i,j:byte;
begin
        s:=0;
        for i:=5 to 20 do begin
                for j:=1 to i do begin
                        if (i mod j)=0 then begin
                                s:=s+j
                        end
                end
        end;
        write('summa=',s);
        readln
end.