Giúp em với ạ. Viết chương nhập vào một dãy gồm n số nguyên. Kiểm tra xem các số vừa nhập có phải là số nguyên tố không? In các số nguyên tố đó.

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('Co ',dnt,' so nguyen to ');
    for i:=1 to n do
        if ktnt(A[i]) then write(A[i],' ');
    readln;
end.