Написать рекурсивную процедуру перевода натурального числа из двоичной системы счисления в десятичную

program ex1;
var x:integer;
procedure printbin(n:integer);
begin
     if n=0 then exit;
     printbin(n div 2);
     write(n mod 2);
end;
begin {осн. программа}
      writeln ('Введите число из 10сс');
      readln(x);
      printbin(x);
end.

var
  S, k: integer;
  N: string;
 
procedure BinToInt(i: integer);
begin
  if N[i] = '1' then S := S + 1 shl (k - i);
  if i > 1 then BinToInt(i - 1)
  else exit
end;
 
begin
  write(' N = ');
  readln(N); //вводим двоичное число
  S := 0;
  k := Length(N);
  BinToInt(k);
  write(' ', S) //выводим десятичное число
end.

var
  S, k, d: integer;
  N: string;
 
procedure BinToInt(i: integer);
begin
  if N[i] = '1' then
    S := S + d;
  d := 2 * d;
  if i > 1 then BinToInt(i - 1)
  else exit
end;
 
begin
  write(' N = ');
  readln(N); //вводим двоичное число
  S := 0;
  d := 1;
  k := Length(N);
  BinToInt(k);
  write(' ', S) //выводим десятичное число
end.