Написать внешний модуль для вычисления результата сложения двух чисел в двоичной системе

uses Binary;
  
begin
  WriteLn('Введите бинарные числа (без знаков только из 0 и 1):');
  var A := New tBinary(ReadString('A ='));
  var B := New tBinary(ReadString('B ='));
  var C := New tBinary(ReadString('C ='));
  var D := New tBinary(ReadString('D ='));
  WriteLn('Введённые числа:');
  WriteLn($'A = {A}');
  WriteLn($'B = {B}');
  WriteLn($'C = {C}');
  WriteLn($'D = {D}');
  WriteLn('Сложение чисел:');
  WriteLn($'A + B = {A+B}');
  WriteLn($'C + D = {C+D}');
  WriteLn($'A + C = {A+C}');
  WriteLn($'B + D = {B+D}');
end.

unit Binary;
 
type
  tBinary = record
    Value : array of Byte;
    
    constructor;
    begin
      SetLength(Value, 1);
    end;
    
    constructor (par : tBinary);
    begin
      Value := Copy(par.Value);
    end;
    
    constructor (par : Integer);
    begin
      var(Length,tmp) := (0,par);
      repeat
        Length += 1;
        tmp := tmp shr 1;
      until tmp=0;
      SetLength(Value, Length);
      for var i := 0 to Length-1 do
        (Value[i],par) := (par and 1,par shr 1);
    end;
    
    constructor (par : String);
    begin
      var p := par.Where(c->c.InRange('0', '1')).Select(c->Byte(Ord(c)-48)).Reverse.ToArray;
      if p.Length = 0 then
        SetLength(Value, 1)
      else
        Value := Copy(p);
    end;
    
    function ToString : String; override;
    begin
      Result := '0'*Value.Length;
      for var i := 0 to Value.Length-1 do
        Result[Value.Length-i] := Chr(48+Value[i]);
    end;
    
    function Print : tBinary;
    begin
      Write(toString);
      Result := New tBinary(Self);
    end;
    
    function PrintLn : tBinary;
    begin
      WriteLn(toString);
      Result := New tBinary(Self);
    end;
 
    function ToInt : Integer;
    begin
      Result := System.Convert.ToInt32(ReverseString(Value.Select(v->v=0?'0':'1').JoinIntoString('')), 2);
    end;
    
    class function operator + (va, vb : tBinary) : tBinary;
    begin
      Result := New tBinary(va.ToInt + vb.ToInt);
    end;
 
    class function operator + (v : tBinary; n : Integer) : tBinary;
    begin
      Result := New tBinary(v.ToInt + n);
    end;
  end;
end.