Đếm xem có bao nhiêu số hoàn hảo trong 1 dãy số nguyên cho trước ( Sử dụng câu lệnh làm việc với dãy số nhaaa)

*Có mảng:

uses crt;
var n,i,j,d,s:longint;a:array[1..1000000] of longint;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do 
      begin
         s:=0;
         write('Nhap phan tu thu ',i,': '); read(a[i]);
         for j:=1 to a[i] div 2 do if a[i] mod j=0 then inc(s,j);
         if s=a[i] then inc(d);
      end;
   writeln('Co ',d,' so hoan hao');
   readln
end.