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

Дан массив,содержащий 2016 неотрицательных целых чисел. Необходимо отыскать в этом массиве количество таких элементов,расположенных непосредственно перед ним. Напишите на паскале программку. Исходные данные объявлены так, как показано ниже.
Const
N=2016;
var
a: array [1..N] of integer;
i , k:integer;
Begin
For i :=1 to N do
readLn (a [i] );
.....
End