Дан массив,содержащий 2016 неотрицательных целых чисел. Нужно отыскать в этом массиве

Для того, чтобы не вводить все 2016 чисел вручную,
readLn (a [i] ) был заменён на a[i]:=random(10000).
Таким образом массив заполнится случайными числами
от 0 до 10000.

Const N=2016;
var a: array [1..N] of integer;
i, k:integer;
Begin
//заполняем массив случайными числами
For i:=1 to N do a[i]:=random(10000);
//выводим начальный массив
writeln (Начальный массив);
For i:=1 to N do write(a[i], );
k:=0; //сумма всех частей наименьших 2016
//проходим циклом по всему массиву
For i:=1 to N do
begin
If a[i]lt;2016 then k:=k+1; //если элемент меньше 2016, означает увеличиваем сумму на 1
end;
//выводим сумму
Writeln (Количество элементов, стоящих перед 2016: , k);
End.