Перевод из двоичной в десятичную систему счисления - Turbo Pascal

Формулировка задачи:

Помогите найти ошибку.

 var
 bin: string;
 dec: longint;
 i,j: byte;

 begin
 dec:=0;
 write('Введите двоичный код:');
 readln(bin);
 j:=0;

 for i:=length(bin) downto 1 do
 begin
 if bin='1' then inc(dec,round(exp(j*ln(2))));
 inc(j);
 end;

 writeln('Результат:', dec);
 end.

Решение задачи: «Перевод из двоичной в десятичную систему счисления»

Листинг программы

if bin[i]='1' then (dec,round(exp(j*ln(2))))

Объяснение кода листинга программы

bin[i] - это двоичное представление числа i. Здесь предполагается, что i - это индекс элемента массива bin, который содержит двоичное представление числа.
Если bin[i] равно '1', то выполняется следующая часть условия.
(dec,round(exp(j*ln(2)))) - это перевод двоичного числа i в десятичную систему счисления. Здесь dec - это десятичное представление числа, round(exp(j*ln(2))) - это округление экспоненты до ближайшего целого числа, а j - это индекс элемента массива j, который содержит логарифм числа 2 в степени, соответствующей i.
Весь код находится внутри условия if, поэтому он будет выполняться только в том случае, если bin[i] равно '1'.