сложить 2 числа в двоисной системе

[MetR]

for j:=1 to 10 do begin
A[j]:=D[j]+F[j];

if A[j]=3 then begin A[j]:=1;
A[j+1]:=A[j+1]+1; end;
if A[j]=2 then begin A[j]:=0;
A[j+1]:=A[j+1]+1; end;
end;

for j:=10 downto 1 do write(A[j]);

A - результат
d и f - слагаемые
в каждом элементе массива содержится 0 или 1

конкретно нужно сложить f=1011111 и d=001011111
должно получится 1000111001, но получается 1001000110
в чем здесь ошибка??? заранее благодарен)