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

Uses crt;
Var n,i,j,k,kt,Max: longint;
A,B:Array[1..100000] of longint;
Begin
clrscr;
Write('Nhap so phan tu cua mang: '); Readln(n);
For i:=1 to n do
begin Write('Nhap phan tu thu A[',i,']: '); Readln(A[i]); end;
k:=0;
For i:=1 to n do
 begin
  kt:=0;
  For j:=1 to A[i] do If A[i] mod j=0 then kt:=kt+1;
  If kt=2 then begin k:=k+1; B[k]:=A[i]; end;
 end;
If k=0 then Write('Day nay khong co so nguyen to!')
 else
begin
 begin
  Max:=B[1];
  For i:=2 to k do If B[i]>Max then Max:=B[i];
 end;
Write('So nguyen to lon nhat trong day la: ',Max);
end;
Readln;
End.

Chúc bạn học tốt!

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.