Tính tổng các số nguyên tố trong mảng trong Pascal ạ giúp em

uses crt;

var a:array[1..10000]of longint; s:qword;i,n:longint;

function NT(b:longint):boolean;

var dem,i:longint;

begin

dem:=0;

for i:=1 to b div 2 do if(b mod i=0)then inc(dem);

NT:=dem=2;

end;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do 

begin

write('nhap a[',i,']=');readln(a[i]);

if(NT(a[i]))then s:=s+a[i];

end;

write(s);

readln;

end.