Определить количество чисел, которые меньше заданного числа N

uses crt;
var
   A:array[1..15]  of integer;
   i,n,k:integer;
begin
      writeln('Vvedite massiv iz 15 4isel');
      for i:=1 to 15   do
      read(a[i]);
      writeln('Vvedite 4islo N') ;
      read(N);
      k:=0;
      if a[i]<n then
      k:=k+1;
      writeln('rezultat:' ,k);
      readln;
end.

uses crt;
var
   A:array[1..15]  of integer;
   i,n,k:integer;
begin
      writeln('Vvedite massiv iz 15 4isel');
      for i:=1 to 15   do
      read(a[i]);
      writeln('Vvedite 4islo N') ;
      read(N);
      k:=0;
      for i:=1 to 15 do
      if a[i]<n then
      k:=k+1;
      writeln('rezultat:' ,k);
      readln;
end.

var i, n, t, k: integer;
 
begin
  write('Enter threshold: ');
  readln(n);
  k := 0;
  writeln('Enter 15 numbers:');
  for i := 1 to 15 do
    begin
      write(i:2, ': ');
      readln(t);
      if t < n then inc(k)
    end;
  writeln(k, ' numbers smaller than ', n);
  readln
end.