Проблема с переводом в десятичную СС в Турбо Паскале

[Moneo]

Здравствуйте. Я перевел числа в двоичную СС и получил два массива по 8 знаков, дальше выполнил нужные операции и для перевода в десятичную СС прописал функцию возведения в степень и следующий код

begin
 for i:=8 downto 1 do sys:=sys+A[i]*pow(2,i);
 writeln('B DECYTICHOM:  ',sys);
 end;

Но вот в чем проблема: при переводе индексируются не нужные нули слева и получается что индексы к нужным мне числам уже не те, например: число 13(10)=00001101 и индексы должны быть 0,1,2,3 а у меня получается отсчет слева и у первой единицы индекс 5. Как сделать отсчет справа.

[Greblin]

for i:=8 downto 1 do sys:=sys+A[i]*pow(2,8-i);

[Moneo]

Сообщение от Greblin

for i:=8 downto 1 do sys:=sys+A[i]*pow(2,8-i);

тогда получается 14 а не 13 не знаю почему

[Greblin]

Инициализируйте sys нулём. Если не поможет, выложите свою функцию pow, больше ошибке быть негде

[Moneo]

Сообщение от Greblin

Инициализируйте sys нулём. Если не поможет, выложите свою функцию pow, больше ошибке быть негде

не помогло, самое интересное что при сложении результат он правильно выводит, но если выводить исходные числа, то ошибка на 1. Код функции:

function pow(a,x:longint):longint;
var
t,i:longint;
begin
t:=a;
for i:=1 to x-1 do
t:=t*a;
pow:=t;
end;

[Greblin]

Ну дык правильно, pow(a, 0) у Вас вернёт a, а не 1. Сделайте отдельный обработчик

if x = 0 then pow := 1

[Moneo]

большое спасибо