Tìm số nguyên tố lớn nhất trong dãy (pascal) thì làm sao ạ.

uses math;
Var n,d:int64; 
i:longint;
a:array[0..10000000]of int64;
 function nt(n:int64):boolean;
  var i:longint;
   begin
 if n<2 then exit(false);
 if n<4 then exit(true);
 if (n mod 2=0) or (n mod 3=0) then exit(false);    //hàm nguyên tố
 for i:=1 to trunc(sqrt(n)+1) div 6 do
 if (n mod (i*6-1)=0) or (n mod (i*6+1)=0) then exit(false);
 exit(true);
   end;
begin
        read(n); //nhập n
     for i:=1 to n do   
     begin
       read(a[i]);
       if (nt(a[i])) then d:=max(d,a[i]);

//tìm số nguyên tố lớn nhất trong mảng
      end;

if d=0 then write('Khong co so nguyen to')

else 
     write(d);  //in kết quả
end.