Подсчитать количество элементов линейного массива меньше чем заданное число. 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]lt;l then k:=k+1;
writeln(k, чисел меньше ,l);
end.