Определить количество простых чисел в массиве

var 
mas:Array[1..8] of integer;
    i,:integer;
    
Begin
....

uses crt;
var 
mas:Array[1..8] of integer;
    i,j:integer;
    prost:boolean;
 
Begin
clrscr;
for i:= 1 to 8 do
readln(mas[i]);
 
 
 
writeln('prostie chisla v massive');
for i:=1 to 8 do
begin
prost:= true;
  for j := 2 to i div 2 do
   begin
    if i mod j = 0 then
      begin
       prost := false;
       break;
      end;
   end;
if prost then  writeln(i);
end;
 
readkey;
end.

const
  n = 8;
var
  a: array [1..n] of integer;
  i,k: integer;
 
{Функция проверяет число. Если число простое, то возврашает true}
function NumberPrime(num: integer): boolean;
var
    i: integer;
begin
    result := true;
    if num in [0,1,4,6] then result:=false;
    if num > 7 then
            for i:=2 to num-1 do
                if (num mod i)=0 then begin
                    result:=false;
                    exit;
                end;
end;
  
begin
    // Заполняем массив
    Writeln('Введите ',n,' натуральных чисел:');
    for i:=1 to n do Read(a[i]);
    
    k:=0;
    // Проверяем каждое число. Если оно простое увеличиваем счетчик
    for i:=1 to n do 
        if NumberPrime(a[i]) then begin
            k:=k+1; 
        end;
    Writeln('Простых чисел: ',k);
end.

uses crt;
const
  n = 8;
var
  a: array [1..n] of integer;
  i,k: integer;
 
{Функция проверяет число. Если число простое, то возврашает true}
function NumberPrime(num: integer): boolean;
var
    i: integer;
begin
    result := true;
    if num in [0,1,4,6] then result:=false;
    if num > 7 then
            for i:=2 to (num div 2) do
                if (num mod i)=0 then begin
                    result:=false;
                    exit;
                end;
end;
  
begin
    // Заполняем массив
    Writeln('Введите ',n,' натуральных чисел:');
    for i:=1 to n do Read(a[i]);
    
    k:=0;
    // Проверяем каждое число. Если оно простое увеличиваем счетчик
    for i:=1 to n do 
        if NumberPrime(a[i]) then begin
            k:=k+1; 
        end;
    Writeln('Простых чисел: ',k);
    ReadKey;
end.

if prost then  writeln(i);

if  prost then k=k+1;

writeln(k);