Подсчет количества цифр числа + приближение числа Пи ф-лой Борвейна

program digitos_de_un_numero2;
 
var n, decimales: real;
    digitos, ni: integer;
 
begin
     writeLn('Introduce un numero'); 
     readLn(n);
     digitos:=0;
 
     n:=abs(n);{ahora n>=0}
     ni:=trunc(n);
     decimales:=frac(n);
 
     while ni<>0 do
     begin
          ni := ni div 10;
          digitos := digitos + 1;
     end;
 
     while  decimales<1 do
     begin
          decimales := decimales*10;
          digitos := digitos + 1;
     end;
     writeLn('El numero tiene ', digitos, ' digitos');
     readLn()
end.

const x0 = sqrt(2);
      y1 = sqrt(sqrt(2));
      pi0 = 2 + x0;
 
var pin, xn, yn: real;
    n, i: integer
 
begin
...ввод данных...
    
     xn:= x0;
     yn:= y1;
     pin:=pi0;
     for i:=1 to n do
         begin
            xn:= 0.5*(sqrt(xn) + 1/sqrt(xn));
            yn:= (yn*sqrt(xn) + 1/sqrt(xn))/(yn + 1);
            pin:= pin*((xn+1)/(yn+1));
         end;

while ni<>0 do
     begin
          ni := ni div 10;
          digitos := digitos + 1;
     end;
 
     while  frac(decimales)>0 do
     begin
          decimales := decimales*10;
          digitos := digitos + 1;
     end;

n:=abs(n);{ahora n>=0}
     ni:=trunc(n);
     decimales:=frac(n)*10;
 
     while ni<>0 do
     begin
          ni := ni div 10;
          digitos := digitos + 1;
     end;
 
     while  trunc(decimales) mod 10<>0 do
     begin
          decimales := decimales*10;
          digitos := digitos + 1;
     end;