Информатика массив найти кол во элементов <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.