mik hỏi rất nhìu câu thầy mik ra bài nhìu quá ( đổi số nhị phân sang số thập phân)

function thapp(s:string): longint;

var i:longint;
 begin
        Thapp:=1;
        for i:=2 to length(s) do
        if s[i]=’0′ then

               Thapp:=thapp*2
       else

               thapp:=thapp*2+1;
end;