Составить программу, которая проверяет, является ли заданное число совершенным — Pascal(Паскаль)

program ss;

var
  i, j, sum, x: integer;

begin
  write('Vvedite 4islo: ');
  readln(x);
  sum := 0;
  for i := x - 1 downto 1 do
    if x mod i = 0 then
      sum := sum + i;
  if sum = x then
    write('sovershennoe')
  else
    write('nesovershennoe');
  readln;

end.