Какая програма должнаобеспечить ввод случайных чисел в диапозоне от 1 до 100 а затем проверить сколько четных чисел и вывести сообщение на экран кол-во записей случайных чисел 100

Program test;
const n = 100;
var i,k:integer;
m: array[1..n] of integer;
begin
randomize;
for i:=1 to n do m[i]:=random(1,100);
for i:=1 to n do if m[i] mod 2 =0
then inc(k);
writeln('Количество четных чисел: ',k);
end.