Замена битов в числе и тетрады - Pascal

Формулировка задачи:

1) Вводится число, (32-битное) порядковый номер бита в числе , и бит (0 или1) нужно заменить бит, номер которого мы введем на бит, который мы введем. Вывести новое число. 2) Вводится 32-битное число, и номер тетрады (4 бита) которые нужно вывести. Вообщем там получается всего 8 тетрад соответственно вводим мы число 5 и он выводит четыре бита пятой тетрады! Буду очень благодарна!

Решение задачи: «Замена битов в числе и тетрады»

Листинг программы

{ 1) Вводится число, (32-битное) порядковый номер бита в числе , и бит (0 или1)
 нужно заменить бит, номер которого мы введем на бит, который мы введем. Вывести новое число. }
{ PascalABC.NET } 
var
  x, y   : Cardinal;
  bitN   : integer;
  bitVal : 0..1;
begin
  write('Число ');
  readln(x);
  write('Номер бита, начиная  справа с единицы ');
  readln(bitN);
  write('Значение бита (0/1) ');
  readln(bitVal);
  
  y:=x and Not((1-BitVal) shl (bitN-1));
  writeln(x, '->', y);
end.

Объяснение кода листинга программы

Вводится число (32-битное)
Вводится порядковый номер бита в числе
Вводится значение бита (0 или 1)
Выполняется замена бита в числе
Выводится новое число