Ввести двоичный код двух целых чисел. Вычислить максимум их разности и суммы. Ответ вывести в двоичном коде

var a, b, c, d, z: integer;
 
function testb(b: string): boolean;
var i: integer;
begin
  if length(b) > z
    then testb := false
    else begin
      testb := true;
      if b[1] in ['+', '-'] then delete(b, 1, 1);
      for i := 1 to length(b) do if not(b[i] in ['0', '1'])
        then begin
          testb := false;
          break
        end
    end
end;
 
procedure inpb(q: string; var x: integer);
var s: string;
    i: integer;
    f: boolean;
begin
  repeat
    write(q);
    readln(s);
    f := testb(s);
    if not(f) then writeln('Invalid binary number, reenter.')
  until f;
  if s[1] in ['+', '-']
    then begin
      if s[1] = '-' then f := false;
      delete(s, 1, 1)
    end;
  x := 0;
  for i := 1 to length(s) do
    begin
      x := x shl 1;
      if s[i] = '1' then x := x or 1
    end;
  if not(f) then x := -x
end;
 
begin
  //Это можно убрать: выяснение размера типа integer в битах,
  //если размер известен заранее, присвоить z это известное значение;
  //также z можно объявить как константу
  z := 8 * sizeof(integer);
  writeln('Max length of binary numbers = ', z, ' digits.');
  //
  writeln('Enter two binary numbers:');
  inpb('a = ', a);
  inpb('b = ', b);
  if (a - b) > (a + b) then c := a - b else c := a + b;
  write('max((a - b), (a + b)) = ');
  d := 1 shl (z - 1);
  while d <> 0 do
    begin
      if (d and c) <> 0 then write('1') else write('0');
      d := d shr 1
    end;
  readln
end.