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

Program Massiv_Readln;
 
Uses crt;   // подключаем модули
 
Type
mat = array [1..50] of integer ;
 
var
a:mat; // переменная массива
i,n,x,y:integer; // переменная I вводится как индекс массива
 
begin // начало основной программы
 
 clrscr;   // очищает текстовое окно
//------------------------------------------------------------------------------ // формируем массив 'A'
 Write('Размер массива (до 50) - ');readln(n);   // вводим размер одномерного массива
 Write('N = ');readln(x);
 For i:=1 to n do
    begin
    Write('a[',i,'] = ');
    readln(a[i]); // ввод i- го элемента производится с клавиатуры
    If a[i]<x then inc(y); // если I-й эл-т меньше заданного числа , то увеличиваем Y на 1
    end;
 
//------------------------------------------------------------------------------ // вывод массива 'A'
 Write('Массив: ');
 For i :=1 to n do
    Write (a[i],' '); // вывод массива осуществляется в строку, после каждого элемента печатается пробел
 
 Writeln;
 Writeln('Чисел меньших ',x,' - ',y);
 readkey; // читает символ из буфера клавиатуры.
 
end.