Viết chương trình đếm số hoàn hảo trong phạm vi n từ 1 đến n. giúp em với mấy anh chị ơi!!

uses crt;
var n,i:longint;
function shh(n:longint):boolean;
var t,i:longint;
begin
t:=1;
for i:=2 to trunc(sqrt(n)) do
if sqr(i)=n then inc(t,i)
else if n mod i=0 then inc(t,i+n div i);
if t=n then exit(true)
else exit(false);
end;
begin
clrscr;
write(‘Nhap n=’);readln(n);
write(‘Cac so hoan hao tu 1->’,n,’: ‘);
for i:=1 to n do
if shh(i)=true then write(i,’ ‘);
readln;
end.