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

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.