Ввести n чисел подсчитать количество случаев когда номер элемента равен его значению. в паскале

Var i, x, n, s: integer;
begin
  write('n='); readln(n);
  for i := 1 to n do begin
    readln(x);
    if x = i then s := s + 1;
  end;
 writeln('таких чисел = ', s);
end.