viết chương trình xét xem một số n nhập từ bàn phím có phải là số hoàn chỉnh không

Nếu có lỗi thì bạn nói mình nhé. ^^

program Hello;
uses crt;
var n,s,i:integer;
begin
    clrscr;
    Write('n= ');
    readln(n);
    for i:=1 to n-1 do
        if (n mod i = 0) then
            begin
                s:=s+i;
                Write(i,' ');
            end;
        if n = s then
            Write('| ', n, ' la so hoan chinh.');
    if n<>s then
        Write('| ',n , ' khong la so hoan chinh')
end.