Напечатать все пары * дружественных * чисел, которые не превышают заданное натуральное число. — Pascal(Паскаль)

function sumdel(n: integer): integer;
var
i,s: integer;
begin
s:=0;
for i:=1 to n-1 do
      begin
      if n mod i=0 then s:=s+i;
      end;
sumdel:=s;
end;
 
var
i,n,j: integer;
begin
writeln('Введите число, до которого будем искать');
readln(n);
for i:=1 to n do
      begin
      for j:=1 to n do
            begin
            if (sumdel(i)=j) and (sumdel(j)=i) then writeln('I=',i,' J=',j);
            end;
      end;
end.