Nhập vào một dãy số kiểm tra có bao nhiêu số nguyên tố

Program BTT;
Uses crt;
Var A: array[1..100] of longint;
    n,i,d: longint;
Function ngto(a: longint): boolean;
Var i: longint;
Begin
        If a<2 then exit(false);
        For i:=2 to a div 2 do
                If a mod i = 0 then exit(false);
                                    exit(true);
End;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
                If ngto(A[i]) then inc(d);
        End;
        Write('Co ',d,' so nguyen to');
        Readln
End. 

program bai_giai;
uses crt;
var f,g:text;
    A:array[1..10000] of integer;
    n,i,dnt:integer;
function ktnt(k:integer):boolean;
var r:integer;
begin
    ktnt:=false;
    if k<2 then exit;
    for r:=2 to trunc(sqrt(k)) do
        if k mod r=0 then exit;
    ktnt:=true;
end;
BEGIN
    clrscr;
    readln(n);
    for i:=1 to n do read(A[i]);
    dnt:=0;
    for i:=1 to n do
        if ktnt(A[i]) then dnt:=dnt+1;
    write(dnt);
    readln;
end.