Паскаль. Вычислить цепную дробь. Не получается закончить программу. Подскажите в чем проблема

[digitalis]

Вот не давала мне покоя эта дробь, решил ее вычислить. Вышло 0,761594. Интересно, что после K>9 результат остается неизменным как минимум до 6-го знака.
Интересно, а что сказала бы рекурсия ?

[newerow1989]

function ppp(k,n:integer):real;
begin
   If k>=n-2 then
      Result:=k+1/(k+2) else
      Result:=k+1/ppp(k+2,n);
end;

var n:integer;
    r:real;
begin
   repeat
      write('введите кол-во эл-ов цепной дроби >0 n=');
      readln(n);
   until n>0;
   r:=ppp(1,n*2);
   r:=1/r;
   Writeln(r:5:8);
   Readln;
end.