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

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.