Перевод числа из двоичной в десятичную систему счисления — Pascal(Паскаль)

program bsc;

var s:string;
    n,l,i:integer;
function stepen(x,y:integer):integer;
 begin if y>0 then stepen:=stepen(x,y-1)*x
              else stepen:=1
 end;
Function Transl(A : String) : Integer;
  Var L : Byte;
  Begin
    If A = ''
    Then Transl := 0
    Else Begin
          L := length(A);
          Case A[1] Of
          '0' : Transl := Transl(Copy(A, 2, L - 1));
          '1' : Transl := Stepen(2, L - 1) + Transl(Copy(A, 2, L - 1));
          End
        End
   End;

begin write('введите двоичное число N= ');
      readln(s);
      writeln('ваше число N= ', Transl(S))
end.