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

Такая ситуация выпадает не очень часто, поэтому запускай программу несколько раз подряд. Можно повысить вероятность, но это усожнит программу.var  i, n: integer;  k: array[1..10]of integer;begin  for i := 1 to 10 do    begin    k[i] := random(10)+1;    write(k[i],' ');    if k[i]=i then n:=n+1;    end;writeln;  writeln('Число искомых элементов: ',n)end.