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

var a:array[1..10] of integer;i,k,l:integer;beginfor i:=1 to 10 do beginwrite(i,'-й элемент: ');readln(a[i]);end;write('Введите сравнительное число: ');readln(l);writeln('Вычисляем...');k:=0;for i:=1 to 10 doif a[i]<l then k:=k+1;writeln(k,' чисел меньше ',l);end.