Tìm số nguyên tố trong mảng sử dụng chương trình con

Đề bài: Tìm số nguyên tố trong mảng sử dụng chương trình con

uses crt;
var  i,n:integer;
a:array[1..250] of integer;
function SNT(a:integer):boolean;
var i:integer;
bl:boolean;
begin
        bl:=true;
        for i:=2 to a div 2 do
        if a mod i = 0 then begin
                bl:=false;
                break;
                end;
        SNT:=bl;
end;
begin 
 clrscr;
 write('Nhap so phan tu: ');readln(n);
        for i:=1 to N do
        begin
         write('Hay nhap so thu ',i,' ');
         readln(a[i]);
        end;
        write('Cac so nguyen to la: ');
        for i:=1 to N do
        begin
        SNT(a[i]);
        if SNT(a[i]) and (a[i]>1) then write(a[i]:4);
        end;
        readln;
end.