Все числа фибоначчи выписали подряд по данному числу n найдите в этом ряду n-ую цифру

Var a,b,c,d,n:integer;begin 
writeln('введи номер цифры'); 
readln(d); 
b:=0; 
a:=1; 
n:=0; 
 if d<0 then while d<0 do begin 
 writeln('введено неверное число ,попробуйте ещё раз');
  readln(d);
  end;
    while c<2147483646 do begin
    c:=a+b;
    b:=a;
    a:=c;
    n:=n+1;
    if (n=d) then c:=2147483647;if (n=d) then d:=b;
 end;
writeln('это число ',b);
end.