Подсчитать количество элементов линейного массива меньше чем заданное число. Pascal abc

Var

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

i, k, l:integer;

begin

for i:=1 to 10 do begin

write (i,'-й элемент: ');

readln (a[i]);

end;

write ('Введите сравнительное число: ');

readln (l);

writeln ('Вычисляем ... ');

k:=0;

for i:=1 to 10 do

if a[i]
writeln (k,' чисел меньше ', l);

end.