Информатика массив отыскать кол во частей amp;lt;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] lt;10) then
             countMin:=countMin+1;
      end;
      writeln('Начальный массив');
      for i := 1 to 16 do
        writeln('m[', i, ']=', m[i], ' ');
      writeln("Количество частей lt;10",countMin);
      readln;
   end.