Подсчитать количество элементов одномерного массива, которые совпадают со своим номером

Program P1;

var a: array[1 ... 1000] of integer; {вводим произвольное количество чисел}

i, k, n: integer;

begin

Read (N);

for i:=1 to N do

begin

Read (a[i]); {вводим элементы матрицы, можно заменить на множество случайных чисел заменив эту строку на A[i]:=random (100) - случайные числа от 0 до 100}

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

end;

write ('k=', k)

end.