Помогите надо написать задачу на Паскале

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

Const

n=10;

var

i, m, k:integer;

a:array[1 ... n] of integer;

begin

Randomize;

Write ('Исходный массив: ');

for i:=1 to n do begin a[i]:=Random (90) + 10; Write (a[i],' ') end;

Writeln;

Writeln ('Введите целое число: '); Read (m);

k:=0;

for i:=1 to n do

if a[i]
Writeln ('Количество чисел, меньших ', m,' равно ', k)

end.

Тестовое решение:

Исходный массив: 42 89 49 25 96 87 94 93 41 28

Введите целое число:

50

Количество чисел, меньших 50 равно 5