Перевод из двоично-десятичной в двоичную систему счисления

function d_b_to_d(a: array of byte): integer;
var i, s: integer;
begin
  s := 0;
  for i := high(a) downto 0 do s := s * 10 + a[i];
  d_b_to_d := s
end;
 
const m = 10;
 
var x: array [1..m] of byte;
    i: byte;
    s: string;
    b: boolean;
 
begin
  b := true;
  for i := 1 to m do x[i] := 0;
  write('Enter number: ');
  readln(s);
  if (length(s) < m) and (length(s) >= 1)
    then for i := length(s) downto 1 do
      if s[i] in ['0'..'9']
        then x[length(s) - i + 1] := byte(s[i]) - byte('0')
        else begin
          b := false;
          break
        end
    else b := false;
  if b
    then begin
      write('Digits array: ');
      for i := m downto 1 do write(x[i]);
      writeln;
      writeln('Bynary: ', d_b_to_d(x))
    end
    else writeln('Input error');
  readln
end.

for i := high(a) downto low(a) do s := s * 10 + a[i];

const m = 10;
 
type ms = array [1..m] of byte;
 
function d_b_to_d(a: ms; n: integer): integer;
var i, s: integer;
begin
  s := 0;
  for i := n downto 1 do s := s * 10 + a[i];
  d_b_to_d := s
end;
var x: ms;
    i: byte;
    s: string;
    b: boolean;
 
begin
  b := true;
  for i := 1 to m do x[i] := 0;
  write('Enter number: ');
  readln(s);
  if (length(s) < m) and (length(s) >= 1)
    then for i := length(s) downto 1 do
      if s[i] in ['0'..'9']
        then x[length(s) - i + 1] := byte(s[i]) - byte('0')
        else begin
          b := false;
          break
        end
    else b := false;
  if b
    then begin
      write('Digits array: ');
      for i := m downto 1 do write(x[i]);
      writeln;
      writeln('Bynary: ', d_b_to_d(x, m))
    end
    else writeln('Input error');
  readln
end.