求从键盘输入一个数后判断该数是否为完数如果是输出该数为完数否则不输出该数,请问如何编写这段pascal程序

program wanshu;
var i,sum,n:longint;
begin
readln(n);
sum:=0;
for i:=1 to n div 2 do if n mod i=0 then inc(sum,i);
if sum=n then writeln('True') else writeln('False');
end.

这个程序是现编的，如有错误请见谅。
这个题目不太难，你应该看得懂是什么意思，我就不解释了。

怎么样才算是完数啊？