Рост каждого из 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.