Дан массив из N целых частей и целое число B.Написать программку,

program zz1;
const n=20; //задаем количество частей в массиве
var mas:array[1..n] of integer;
i,k,b:integer;
begin
read(b); //вводим данное число
for i:=1 to n do
read(mas[i]); //вводим числа в массив с клавиатуры

for i:=1 to n do
if mas[i]lt;b then k:=k+1; //проверяем, если число из массива меньше чем данное, то считаем количество
write(количество элементов массива меньше заданного числа - ,k); //выводим ответ
end.