Описать функцию BinToDec(S)...

uses crt;
var
   bin:string;
function stepen(n:integer):integer;
var j,b:integer;
begin
     b:=1;
     for j:=1 to n do
         b:=b*2;
     stepen:=b;
end;
function BinToDec(s:string):integer;
var i,dec,h,g:integer;
    s1:string;
begin
     s1:='';
     dec:=0;
     for i:=length(s) downto 1 do
         s1:=s1+s[i];
     for i:=length(s1) downto 1 do
         begin
              val(s1[i],h,g);
              dec:=dec+stepen(i-1)*h;
         end;
     BinToDec:=dec;
end;
 
begin
    clrscr;
  readln(bin);
  writeln(BinToDec(bin));
  readln;
end.

function HexToDec(s:string):integer;
var s1:string;
i:integer;
begin
s1:='';
    for i:=1 to length(s) do
        case s[i] of
        '1': s1:=s1+'0001';
        '2': s1:=s1+'0010';
        '3': s1:=s1+'0011';
        '4': s1:=s1+'0100';
        '5': s1:=s1+'0101';
        '6': s1:=s1+'0110';
        '7': s1:=s1+'0111';
        '8': s1:=s1+'1000';
        '9': s1:=s1+'1001';
        'a','A': s1:=s1+'1010';
        'b','B': s1:=s1+'1011';
        'c','C': s1:=s1+'1100';
        'd','D': s1:=s1+'1101';
        'e','E': s1:=s1+'1110';
        'f','F': s1:=s1+'1111';
        end;
    HexToDec:=BinToDec(s1);
 
end;