Вывести все совершенные числа в промежутке от 1 до 100 . совершенное число это натуральное число равное сумме своих собственных делителей(отличных от самого числа)

Var i, j, s: integer;

Begin
    For j:=1 to 100 do
    Begin
         s := 0;
         For i := 1 to (j div 2) do
             if (j mod i = 0) then s := s + i;
         if (j = s) then writeln(s);
    End;
End.