Программа умножения двух двоичных чисел(Pascal)

[chit]

помогите с программой, нужно написать программу умножения двух двоичных чисел: 1111 и 10101.

[Serge_Bliznykov]

Программа умножения двоичных чисел.
введите первое двоичное число: 1111
введите второе двоичное число: 10101
Произведение равно 100111011

function BinaryStrToInt(const s : string) : longint;
var 
  i : integer;
  r : longint;
begin
  r := 0;
  for i:=1 to Length(s) do begin
    if (s[i]='1') or (s[i]='0') then
      r := r*2 + (ord(s[i]) - ord('0'))
    else begin
      BinaryStrToInt := -i;
      exit;
    end;
  end;
  BinaryStrToInt := r
end;

function dec2bin(dec : longint):string;
begin
  if dec=0 then dec2bin := ''
  else
    if odd(dec) then
      dec2bin := dec2bin(dec div 2) + '1'
    else 
      dec2bin := dec2bin(dec div 2) + '0';
end;


var 
  s : string;
  d1, d2 : longint;
begin
  WriteLn('Программа умножения двоичных чисел.');
  Write('введите первое двоичное число: '); ReadLn(s);
  d1 := BinaryStrToInt(s);
  if d1<0 then begin WriteLn('Ошибка в представлении двоичного числа (',s,') ! '); Halt(1) end;
  Write('введите второе двоичное число: '); ReadLn(s);
  d2 := BinaryStrToInt(s);
  if d2<0 then begin WriteLn('Ошибка в представлении двоичного числа (',s,') ! '); Halt(1) end;
{  WriteLn('d1 = ',d1,' d2 = ', d2 ); }
  WriteLn('Произведение равно ', dec2bin( d1 * d2 ));
  Readln
end.

p.s. преобразование числа в двоичное представление выполнено через рекурсию.
Ни по каким основаниям. Просто так, прикола ради!

[chit]

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

function BinaryStrToInt(const s : string) : longint;
var 
  i : integer;
  r : longint;
begin
  r := 0;
  for i:=1 to Length(s) do begin
    if (s[i]='1') or (s[i]='0') then
      r := r*2 + (ord(s[i]) - ord('0'))
    else begin
      BinaryStrToInt := -i;
      exit;
    end;
  end;
  BinaryStrToInt := r
end;

function dec2bin(dec : longint):string;
begin
  if dec=0 then dec2bin := ''
  else
    if odd(dec) then
      dec2bin := dec2bin(dec div 2) + '1'
    else 
      dec2bin := dec2bin(dec div 2) + '0';
end;


var 
  s : string;
  d1, d2 : longint;
begin
  WriteLn('Программа умножения двоичных чисел.');
  Write('введите первое двоичное число: '); ReadLn(s);
  d1 := BinaryStrToInt(s);
  if d1<0 then begin WriteLn('Ошибка в представлении двоичного числа (',s,') ! '); Halt(1) end;
  Write('введите второе двоичное число: '); ReadLn(s);
  d2 := BinaryStrToInt(s);
  if d2<0 then begin WriteLn('Ошибка в представлении двоичного числа (',s,') ! '); Halt(1) end;
{  WriteLn('d1 = ',d1,' d2 = ', d2 ); }
  WriteLn('Произведение равно ', dec2bin( d1 * d2 ));
  Readln
end.

p.s. преобразование числа в двоичное представление выполнено через рекурсию.
Ни по каким основаниям. Просто так, прикола ради!

спасибо огромное сейчас буду разбираться)