Это странно, берет все числа кроме 220 :DD как сделать так, что бы 220 взял в расщет

program Project16;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

n,i,j: integer;

sum_del: word;

begin

try

writeln ('vvedite n');

readln (n);

for i:=1 to n do

begin

sum_del:=0;

for j:=1 to i-1 do

if i mod j=0

then

sum_del:=sum_del +j;

end;

if sum_del