Рост каждого из N учеников хранится в сантиметрах в массиве. Найдите количество учеников, рост которых меньше M сантиметров
Помогите ребят)

const N = 10;
const M = 179;
var
mas:array [1..N] of integer;
count,i:integer;
begin
writeln('Введите рост учеников');
for i:=1 to N do
read(mas[i]);
for i:=1 to N do
if mas[i]<M then
count:=count+1;
writeln('Число учеников,чей рост меньше '+M+' равен '+count);
end.