Pascal/Turbo Pascal - como puedo hacer esto

function binToDecimal(const data:string):integer;

var

 i:integer;

 decimal,exp:integer;

begin

  decimal:=0;

  exp:=0;

  for i:=length(data) downto 1 do

  begin

    if(data[i]='1') then

    begin

      decimal:=decimal+trunc((power(2,exp)));

    end;

    inc(exp);

  end;

  result:=decimal;

end;

begin

 writeln(binToDecimal('01111101110111'));

 readln;

end.

{A ver si esto sirve}

program binariointeger;

  uses

     crt;

    const

    bits : array[1..8] of integer = (128, 64, 32, 16, 8, 4, 2, 1);

   var

     bins : string[8];

     i, ente : integer;

   begin

      clrscr;

      write('  Entre Binario 8 bit : ');

      readln(bins);

      ente := 0;

      for i := 1 to 8 do

       if bins[i] = '1' then

       ente := ente +  bits[i];

       writeln;

       writeln('  El Integer Es : ',ente);

       readkey;

    end.