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