Работа с битами

Program kukushka;
Var m:byte;
Begin
M:=00100000; //это код, как я понимаю числа 32 (И должно его же выдавать)
{и объясните почему }
M:=10010900; //выдаёт какое нибудь 234 или 160
Writeln(M); //Здесь хочется вменяемые результаты (не коды запуска ракет, а 10-чная версия этого кода)

Var m:byte;

var
  m: byte;
 
begin
  asm
    mov m, 100000b
  end;
  WriteLn(m);  {m = 32}
end.

function IsCorrect(x: string[8]): boolean;
//функция определяет является ли введенная строка двоичным числом
var
  i: byte;
begin
  IsCorrect := true;
  for i := 1 to Length(x) do
    if not (x[i] in ['0', '1']) then
    begin
      IsCorrect := false;
      exit
    end
end;
 
var
  s: string [8];
  i, n, len: byte;
  
begin
  WriteLn('Введите двоичное число: ');
  ReadLn(s);
  if IsCorrect(s) then
  begin
    len := Length(s);
    for i := 1 to len do
      if s[i] = '1' then
        n := n + 1 shl Abs(i - len);
      WriteLn('n = ', n)
  end
  else
    WriteLn('Некорректный ввод');
end.