люди помогите) проблема с модулем

[osvoboditeWilly]

написал библиотечный модуль по сложению чисел в двоичной системе счисления
unit Sbin;
interface
function binsum(bin1,bin2:string):string;
implementation
function binsum;
var i:byte; o:char; be,bmax,bmin:string;
begin
be:='';
if length(bin1)>length(bin2) then
begin
bmax:=bin1;
bmin:=bin2;
end
else begin
bmax:=bin2;
bmin:=bin1;
end;
o:='0';
for i:=1 to length(bmin) do
begin
if o='0' then
if (bmin[length(bmin)-i+1]='1')xor(bmax[length(bmax)-i+1]='1') then be[i]:='1'
else if (bmin[length(bmin)-i+1]='0') then be[i]:='0'
else begin be[i]:='0'; o:='1'; end
else if (bmin[length(bmin)-i+1]='1')xor(bmax[length(bmax)-i+1]='1') then
begin be[i]:='0'; o:='1'; end
else if (bmin[length(bmin)-i+1]='0') then
begin be[i]:='1'; o:='0'; end
else begin be[i]:='1'; o:='1'; end
end;
for i:=length(bmin)+1 to length(bmax) do
if (bmax[i]='1')xor(o='1') then
begin be[i]:='1'; o:='0'; end
else if (bmax[i]='0') then be[i]:='0'
else begin be[i]:='1'; o:='1'; end;
if o='1' then be[length(be)+1]:='1';
binsum:=be;
end;
end.


а теперь надо программу написать каторая будет проверять работоспособность модуля, но у меня неполучается(( люди кто может помогите плз очень надо у меня зачет скоро=) надо создать программу на ввод двух чисел и чтобы она щитала сумму через модуль и выдавала ответ!!!помогите плз!!

[Somebody]

uses sbin;
var a,b:string;
begin
write('a='); readln(a);
write('b='); readln(b);
write('a+b=',binsum(a,b));
readln;
end.