Паскаль.Число в двоичной системе счисления, введенное пользователем программы, преобразовать в десятичное число. Результат вывести на экран.

var s :string;
i, j, dva, otv :integer;

begin
write (‘vvedite dvoichnoe chislo = ’);
readln (s);
for i := 1 to length(s) do
if strtoint (s[i]) > 0 then
begin
dva:= 1;
for j:= 1 to length(s)-i do
dva:=dva*2;
otv:=otv+dva;
end;
writeln(otv);
readln;
end.