Hogyan kell barátságos számokat keresni free pascal-ban?

idái jutottam el, és nem tudom, hol rontom el:

Program baratsagos;

Uses crt;

Var i,j,y:word;

szam1,szam2:word;

Begin

Szam1:=0;

Szam2:=0;

For i:=1 to 10000 do

for j:=1 to i div 2 do

Begin

If i mod j = 0 then

szam1:= szam1+j;

for y:=1 to szam1 div 2 do

if szam1 mod y =0 then

Szam2:=szam2+y;

If i = szam2 then Writeln(i,' ',szam2);

End;

End.