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

program translate;
 
const bin: set of char = ['0'..'1'];
      hex: set of char = ['0'..'9', 'A'..'F'];
 
var i: integer;
    n: longint;
    s: string;
    b, h: boolean;
 
begin
  writeln('Enter binary or hexadecimal number:');
  readln(s);
  b := true;
  h := true;
  for i := 1 to length(s) do
    begin
      s[i] := upcase(s[i]);
      if not(s[i] in bin) then b := false;
      if not(s[i] in hex) then begin
        h := false;
        break
      end
    end;
  if not(b) and not(h) then writeln('It''s not binary or hexadecimal number.')
  else begin
    if b then begin
      if length(s) <= 32 then begin
        writeln('Binary to decimal:');
        n := 0;
        for i := 1 to length(s) do n := n * 2 - byte('0') + byte(s[i]);
        writeln(n)
      end
      else writeln('Binary number too large, not translate.')
    end;
    if h then
      if length(s) <= 8 then begin
        writeln('Hexadecimal to decimal:');
        n := 0;
        for i := 1 to length(s) do
          case s[i] of
            '0'..'9': n := n * 16 - byte('0') + byte(s[i]);
            'A'..'F': n := n * 16 - byte('A') + byte(s[i]) + 10
          end;
        writeln(n)
      end
      else writeln('Hexadecimal number too large, not translate.')
  end;
  readln
end.