Дана строка, изображающая двоичную запись целого числа. Вывести строку, изображающую десятичную запись этого же числа- Pascal(Паскаль)

uses crt;
var
  str: String;
  k, i, s: Integer;
begin
  writeln('Введите число в двоичном представлении');
  readln(str);
  k := 1;
  s := 0;
  for i := Length(str) downto 1 do
    begin
      if str[i] = '1' then
        begin
          s := s + k;
          k := k * 2;
        end;
    end;
  writeln(s);
end.