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

Такая ситуация выпадает не очень часто, поэтому запускай программу несколько раз подряд. Можно повысить вероятность, но это усожнит программу.
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.