найти наименьший номер элемента последовательности, для которого выполняется условие

[newgener]

ПАСКАЛЬ
найти наименьший номер элемента последовательности, для которого выполняется условие: |a[n]-a[n-1]|<e. Вывести на экран этот номер и все элементы a[i], где i=1,2,...,n. Точность вычислений e задаётся.
a[n]=2+1/a[n-1], a[1]=2

[Cannibal]

var a:array of real;
  i,n,k:integer;
  e,min:real;
begin
  readln(n);
  a[1]:=2;
  write(a[1]:7:5);
  for i:=2 to n do
  begin
    a[i]:=2+1/a[n-1];
      write(a[i]:7:5);
  end;
  writeln
  min:=a[1];
  k:=1;
  readln(e);
  for i:=2 to n do
    if abs(a[i]-a[i-1])<e then
      if min>a[i] then
      begin
        min:=a[i];
        k:=i;
      end;
  write(k);
end.

[newgener]

есть одна ошибочка, со счётом минимального: min всегда будет меньше a[i]

[newgener]

спсибо большое, разабрался