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

Вот этот кусочек будет считать сколько элементов в массиве меньше 6.    x := 0;   for i := 1 to n do      begin      if m[i] < 6 then      inc(k);      end;   writeln(k);