Cho dãy số nguyên a gồm n phần tử và khoá k Tìm xem có bao nhiêu phần tử bé hơn k Cần gấp ạ please

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,k,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        Write('Nhap k: '); Readln(k);
        d:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]<k then inc(d);
        End;
        Write('Co ',d,' phan tu be hon ',k);
        Readln
End.

uses crt;
var n,i,k,d:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write('k=');readln(k);
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         if a[i]<k then inc(d);
      end;
   writeln('Co ',d,' phan tu');
readln
end.