Описать функцию BinToDec(S), которая определяет число по его строковому представлению в двоичной системе счисления

var
  A: string;
  i:integer;
 
function BinToDec(S: string): integer;
var
  i,  d, c: integer;
  b: real;
begin
  b := 0; d := 0; c := 0;
  for i := 1 to length(S) do
  begin
    if copy(S, 1, 1) = '1' then 
    begin
      val((copy(S, i, 1)), d, c);
      b := b + d * exp(ln(2) * (length(s) - i));
    end
    else begin
      if (length(s) < 2) and (copy(S, 1, 1) = '0') then writeln('Dec: ',0)
      else
        writeln('error: ведущий ноль');
      break;
    end;
  end;
  bintodec := 0;
  if copy(S, 1, 1) = '1' then
    writeln('Dec: ', b);
end;
 
begin
  for i := 1 to 5 do
  begin
    write('Bin ',i, ': ');
    readln(A);
    BinToDec(A);
  end;
end.