Помогите
написать программу перевода числа из двоичной системы в десятичную с
использованием функции возведения в степень. Я написала, но у меня
где-то ошибка.
 
b:=0;
m:=length(max)-1;
j:=m;

for i:=1 to m do

 begin

   val(max[i],p,code); 

   while j>=0 do 

     p:=p*step(2,j); 

   b:=b+p;
 j:=j-1;

  writeln(b);

  end;

Поясняю,
что тут и как. Эта мини-задача, входящая в решение одной масштабной
задачищи. Дана строка max, в которой записано двоичное число. Функция 
step(x,y:integer):integer
возводит число x в степень y. Помогите найти и исправить ошибку,
только, пожалуйста, не надо писать СОВЕРШЕННО ДРУГОЙ способ решения. Заранее благодарю))