Подсчитать количество элементов линейного массива меньше чем заданное число. 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.