Задан одномерный массив из n элементов.определить, сколько элементов массива меньше, чем число 6.

Вот этот кусочек будет считать сколько элементов в массиве меньше 6.   

x := 0;
  for i := 1 to n do
     begin
     if m[i] < 6 then
     inc(k);
     end;
  writeln(k);