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

[Andrewk1w1]

...

[newerow1989]

function Perewod(chislo: string): int64;
var i, j: integer;
    s: char;
begin
   Result:=0;
   For j:=1 to Length(chislo) do
   begin
      s:=chislo[j];
      i:=StrToInt(s);
      Result:=Result+Round(i*Power(2,Length(chislo)-j));
   end;
end;

begin
   Writeln(Perewod('1000'));
   Readln;
end.