Паскаль, последовательность

[Кагбе_Прогер]

Найти наименьший номер последовательности, для которого выполняется условие |a(n)-a(n-1)|<E вывести на экран этот номер и все а(i), где i=1,2,3,...n. если E=10^(-3); a(n)=2+1/a(n-1); a(1)=2. Массивами пользоваться запрещено.

program zadacha;
uses crt;
var
e,x,an,a1:real;
i:integer;
begin
clrscr;
a1:=2;e:=0.003;    i:=9;
while i<>0 do
 begin
 an:=2+1/a1;
 x:=abs(an-a1);;
 a1:=an;  readln(i);
 end;
readkey;
end.

код считает а[n] и a[n-1], но наименьшего элемента удовлетворяющего неравенству |a(n)-a(n-1)|<E не существует, т.к. a[n] постоянно уменьшается, подскажите пожалуйста правильно ли я всё понимаю, а то задолбался уже с этой задачей

[alex_fcsm]

program zadacha;
uses crt;
var e,temp,an:real;
    i:integer;
 begin
 clrscr;
 temp:=2;e:=0.003;
 writeln(i,':',temp);
 repeat
 an:=temp;
 temp:=2+1/an;
 writeln(i,':',temp);
 until abs(an-temp)<e;
 readkey;
 end.

[Кагбе_Прогер]

спасибо большое, очень помогли!