cho dãy a1,a2,a3...an tính tổng dố nguyên tố trong dãy mik đang cần gấp ạ , mong mọi người giúp đỡ ạ

Program Dapan;

Uses crt ;

Type mang = Array[1..max] of integer;

Const Max = 500;

Var S,n,i,j:integer;    

          A:mang;    

          NT:boolean;

Begin 

  Repeat   

  Clrscr;   

  Write('So cac so phan tu : '); Readln(n);

  Until (n<=max) and(n>0);

For i:=1 to n do  

  Begin

  S:=0;     

  Write('A[',i,']='); Readln(A[i]);  

  End; 

For i:=1 to n do  

  Begin       

  j:=2;      

  While (A[i] mod j <> 0)and(j<Sqrt(A[i]))

     do j:=j+1;

  If j>Sqrt(A[i]) then NT:=True Else Nt:=False;       

  If NT then S:=S+A[i];  

  End;

  Write('Tong cac so nguyen tola: ',S);

Readln;

  End.