Функция: Подсчитать количество простых чисел в последовательности, больших заданного числа М

uses crt;
function Prost(a:integer):boolean;
var i:integer;
    f:boolean;
begin
if a<2 then f:=false
else
 begin
  i:=2;
  f:=true;
  while(i*i<=a)and f do
  if a mod i=0 then f:=false
  else i:=i+1;
 end;
Prost:=f;
end;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,m,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
write('Введите число для сравнения m=');
readln(m);
k:=0;
for i:=1 to n do
if Prost(a[i])and(a[i]>m) then k:=k+1;
write('Количество простых чисел, больших ',m,'=',k);
readln
end.

Program 02;
  uses crt;
  type Tmas= array [1..10] of integer;
  const mas: Tmas=(2,3,4,7,19,18,7,8,11,15);
 
 function Prostoe (b:integer):boolean;
  var i: integer;
      f:boolean;
  begin
    i:=2;
    F:=true;
    while (i<b) and f do
     begin
      if (b mod i)=0 then f:=false;
      i:=i+1;
     end;
    Prostoe:=f;
  end;
 
  var k,i,m:integer;
      f:boolean;
  Begin
   clrscr;
   write ('M=');
   readln (m);
   k:=0;
   for i:=1 to 10 do
    begin
     if (mas[i]>m) and  (prostoe (mas [i]))
       then  k:=k+1;
    end;
   writeln (k);
   readln;
  End.