Написать программу Перевод дробного двоичного числа

{$mode objfpc}
const digit:string[16]='0123456789ABCDEF';
 
function ToDec(n:string;r:Int64):Int64;
var
  m:Int64;
  i:longint;
begin
Result:=0;
if n<>'' then begin
  m:=0;
  while pos('0',n)=1 do  delete(n,1,1);
    for i:=1 to length(n) do m:=m*r+pos(n[i],digit)-1;
    if (m>=high(Int64)) or (m<0) then begin
      writeln('превышен предел');
      m:=0;
    end;
    Result:=m;
  end;
end;
 
function ToDecNew(n:string;r:Integer):extended;
var
  f:extended;
  i:integer;
  r1:int64;
begin
    i:=pos('.',n);
    if i>0 then begin
    f:=ToDec(copy(n,1,i-1),r);
    delete(n,1,i);
    r1:=r;
    for i:=1 to length(n) do begin
      f:=f+(pos(n[i],digit)-1)/r1;
      r1:=r1*r;
    end;
    Result:=f;
 
  end else Result:=ToDec(n,r);
 
end;
var
  s:string;
  r:integer;
begin
  writeln('перевод чисел из систем счисления(2-16) в десятичную');
  write('Введите число:');
  readln(s);
  write('основание системы счисления:');
  readln(r);
  writeln('Результат:',ToDecNew(s,r):20:10);
end.

function intPart(d : String) : String;
begin
  d := d.TrimStart('0');
  if d.Length = 0 then
    Result := '0'
  else
    begin
      var r := Biginteger.Zero;
      foreach var c in d do
        begin
          r *= 2;
          if c = '1' then r += 1;
        end;
      Result := r.ToString;
    end;
end;
 
function fracPart(d : String) : String;
begin
  d := d.TrimEnd('0');
  if d.Length = 0 then
    Exit;
  var b := Biginteger.One;
  var r := Biginteger.Zero;
  foreach var c in d do
    begin
      b *= 5;
      r *= 10;
      if c = '1' then r += b;
    end;
  Result := r.ToString;
end;
 
begin
  var d := ReadLnString;
  var res : String;
  if d.Count(c -> '01.'.IndexOf(c) < 0) > 0 then
    Res := 'Косяк: недопустимые символы.'
  else
    case d.Count(c -> c = '.') of
      0 : /// это целое число
          res := intPart(d);
      1 : /// это дробное число
          begin
            res := fracPart(d.ToWords('.')[1]);
            if res.Length > 0 then res := '.' + res;
            res := intPart(d.ToWords('.')[0]) + res;
          end;
    else
      res := 'Косяк: в числе точка может быть только одна.';
    end;
  WriteLn(res);
end.