Cho dãy A gồm N phân tử A1…An.Nhập vào x liệt kê tất cả các giá trị i và ai tại Ai=x b) liệt kê tất cả các vị trí và Ai là số nguyên tố. Giúp mình v

Chương trình:

uses crt;
var a:array[1..1000000] of longint;
    n,x,i:longint;
function nt(x:longint):boolean;
var i:longint;
begin
nt:=false;
for i:=2 to trunc(sqrt(x)) do
if (x<2) or (x mod i=0) then exit;
nt:=true;
end;
begin
clrscr;
write(‘Nhap do dai cua day: ‘);readln(n);
for i:=1 to n do
  begin
  write(‘a[‘,i,’]=’);readln(a[i]);
  end;
clrscr;
write(‘Nhap x=’);readln(x);
writeln(‘Cac chi so va gia tri co phan tu = ‘,x);
for i:=1 to n do
if a[i]=x then writeln(‘a[‘,i,’]=’,a[i]);
writeln(‘Cac chi so va gia tri co phan tu la so nguyen to’);
for i:=1 to n do
if nt(a[i])=true then writeln(‘a[‘,i,’]=’,a[i]);
readln;
end.