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

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;
 
var
  n, i, m, k: integer;
 
begin
  write('Введите число для сравнения M: ');
  readln(m);
  k := 0;
  writeln('Введите числа, 0 - выход: ');
  read(i);
  while i <> 0 do
  begin
    if Prost(i) and (i > m) then 
      k := k + 1;
    read(i);
  end; 
  write('Количество простых чисел, больших ', m, ': ', k);
  readln
end.

function isPrime(num: integer): boolean;
var j: integer;
begin
  isPrime := true;
  for j := 2 to (num - 1) do
    if num mod j = 0 then begin
      isPrime := false;
      break
    end
end;
 
var n, m, count: integer;
begin
  write('M = '); read(m);
  count := 0;
  read(n);
  while n <> 0 do begin
    if (isPrime(n)) and (n > m) then inc(count);
    read(n);
  end;
  writeln(count);
end.