Funkcja wyznaczająca element ciągu

Witam, napisałem program, ale nie mam pewności czy liczy to co trzeba, ponieważ dostałem do niego "dziwnie" napisane pytanie które brzmi:

Dany jest ciąg o elementach określonych wzorem:

ai=1/((i-1)*(i+1)) gdzie i=2,3,...

Napisz program zawierający funkcję wyznaczającą numer tego elementu ciągu począwszy od którego różnica dwu kolejnych wyrazów jest mniejsza niż EPS. Wartość EPS należy wczytać w programie głównym.

program element_ciagu;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  function numer(eps : real) : real;
  var
    ai, aj : real;
    i, n : integer;
  begin
    n := 0;
    i := 2;
    ai := 1;
    repeat
      aj := ai;
      ai := 1 / ((i - 1) * (i + 1));
      i := i + 1;
      n := n + 1;
    until
      abs(ai - aj) < eps;
    numer := n;
  end;

var
  eps : real;
begin
  writeln('podaj wartosc eps');
  readln(eps);
  writeln('numer tego elementu= ', numer(eps): 8: 2);
  readln;
end.

Rozwiąż sobie na kartce ten ciąg dla powiedzmy 7 elementów kolejnych i sprawdź różnice pomiędzy nimi, a później sprawdź czy program robi to co sobie założyłeś.