----Cần Gấp làm bài tập------ Tìm phần tử nguyên dương và là số nguyên tố của mảng. tìm vị trí Pascal

Program BTT;
Uses crt;
Var A:array[1..10000] of longint;
    i,n: 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);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        For i:=1 to n do
                If ngto(A[i]) then
                Begin
                        Write('A[',i,'] = ',A[i]);
                        Writeln;
                End;
        Readln
End.