Вводятся размер вектора и его элементы. Вывести, сколько простых чисел среди его элементов — Pascal(Паскаль)

function prost(x: integer): boolean;
var
  i: integer;
  b: boolean;
 
begin
  b := false;
  for i := 2 to round(sqrt(x)) do 
  begin
    if x mod i = 0 then
      b:=true;
  end;
  if b then
    prost := false
  else
    prost := true;
end;
 
 
var
  a: array[1..100] of integer;
  i, j, n, k: integer;
 
begin
  k := 0;
  writeln('vvedite razmer vectora');
  readln(n);
  writeln('vvedite element');
  for i := 1 to n do
    readln(a[i]);
    
  for i := 1 to n do
    write(a[i], ' ');
    writeln;
  
  for i := 1 to n do
   if a[i]<>1 then
    if prost(a[i]) then
      inc(k);
  
  writeln('kolvo prost chisel=', k);
end.