Определить количество разрядов, которые различаются в записи двух двоичных чисел

var
  a,b:string;
  k,i:integer;
begin
  write('введите 1 число в двоичной записи:');readln(a);
  write('введите 2 число в двоичной записи:');readln(b);  
  k:=0;
  if length(a)<length(b) then for i:=length(a) to length(b) do a:='0'+a;
  if length(b)<length(a) then for i:=length(b) to length(a) do b:='0'+b;  
  writeln(a,' ',b);
  for i:=1 to length(a) do if a[i]<>b[i] then inc(k);
  writeln('количество отличных разрядов ',k);
end.

  k:=0;
  for i:=length(a) to length(b) do a:='0'+a;
  for i:=length(b) to length(a) do b:='0'+b;  
  writeln(a,' ',b);
  for i:=1 to length(a) do if a[i]<>b[i] then inc(k);

 while length(a)<length(b) do a:='0'+a;
 while length(a)>length(b) do b:='0'+b;

uses System;
 
begin
  var a: integer := 164;
  var b: integer := 125;
  writeln(Convert.ToString(a, 2));
  writeln(Convert.ToString(b, 2));
  
  writeln(Convert.ToString(a xor b, 2).Replace('0', '').Length);
end.

uses  System;
 
begin
  var a: string := '10010111';
  var b: string := '1100111011';
  writeln(a.PadLeft(16, '0'));
  writeln(b.PadLeft(16, '0'));
  writeln(Convert.ToString(
      Convert.ToInt32(a, 2) xor Convert.ToInt32(b, 2), 2
    ).Replace('0', '').Length);
end.