помогите пожалуйста даю 74 балла!!!!!
составить программный код к следующей задаче:
Дан линейный массив из 40 элементов. Найдите в нём количество элементов, больших или равных заданному числу n, где n - вводится с клавиатуры. Элементы массива заполняются случайным образом.
​

Program n_1;

var i, k, n:integer; a: array [1..40] of integer;

begin

   readln(n);

   randomize;

   for i:=1 to 40 do begin

       a[i]:=random(100);

       if a[i]>=n then k:=k+1;

   end;

   writeln(k);

end.

_____

Поставил диапазон генерации чисел от 0 до 99 т.к. в условии о нем не было сказано ничего.