Задача на рекурсию, Что-то где-то глючит Опции

[Vandrouny]

Доброго дня всем! Заглючил на задаче на рекурсию.
Надо значит вывести значение и номер первого положительного числа, вычисленного по формуле
Xn=Xn-1 + Xn-2 + 100 (X1=X2=-99)

Вот мой код: (выводит ошибку переполнения стека)

program labrec;
uses crt;
var
x,n:integer;
function rec(n:integer):integer;
begin
repeat
  n:=n+1;
  if (n=1) or (n=2) then rec:=-99
  else rec:=rec(n-1)+rec(n-2)+100;
  n:=n+1;
until rec(n)>0;
end;
begin
clrscr;
write(rec(n),' ',n);
readkey;
end.