Информатика массив найти кол во элементов <10

var  m: array [1 .. 16] of integer;  i,countMin: integer;begin      for i := 1 to 16 do      begin        randomize;        m[i] := random(100);           if(m[i] <10) then             countMin:=countMin+1;      end;      writeln('Исходный массив');      for i := 1 to 16 do        writeln('m[', i, ']=', m[i], ' ');      writeln("Количество элементов <10",countMin);      readln;   end.