Напишите программу которая вводит натуральное число n и находит все совершенные числа в диапазоне от 1 до n pascal

Var  i, j, n, p: integer;

begin 
readln(n); 
for i := 1 to n do 
begin   
p := 0;   
for j := i - 1 downto 1 do     
if (i mod j = 0) then p := p + j;   
if p = i then writeln(i, '- совершенное число'); 
end;
end.