programa numeros perfectos

[eldemonforte]

Hola buenas:
Soy un estudiante de 1º de ingenieria y tengo que hacer un ejercicio que me diga si el numero que meto por teclado es perfecto o no. Ya lo tengo hecho y me va todo bien, salvo una cosa. Me dice que el 0 es un numero perfecto, y no lo és. Voy a copiar el programa que tengo hecho y si podéis ayudarme a modificarlo para que no me de este error os estaría muy agradecidos. MUCHAS GRACIAS

program NumerosPerfectos (input,output);
var
numero: integer;
candidato: integer;
suma: integer;
begin
writeln('Introduce un numero entero');
readln (numero);
suma:=0;
For candidato:=1 to numero div 2 do
if numero mod candidato =0 then
suma:= suma + candidato;
if numero = suma then
writeln(numero, ' es un numero perfecto')
else
writeln(numero, ' no es un numero perfecto');
readln
end.