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

Такая ситуация выпадает не очень часто, поэтому запускай программу несколько раз подряд. Можно повысить вероятность, но это усожнит программу.

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.