Напечатать нечетные элементы, которые входят хотя бы в одно из этих множеств и количество таких элементов - Pascal ABC

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

Пусть заданы множество А и множество В целых чисел, напечатать нечетные элементы, которые входят хотя бы в одно из этих множеств и количество таких элементов.

Решение задачи: «Напечатать нечетные элементы, которые входят хотя бы в одно из этих множеств и количество таких элементов»

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

{Пусть заданы множество А и множество В целых чисел, напечатать нечетные
элементы, которые входят хотя бы в одно из этих множеств и количество
таких элементов.}
var
  a,b:set of byte;
  k,i:byte;
begin
  randomize;
  a:=[];
  b:=[];
  for i:=0 to 255 do
    begin
      k:=random(255);
      if not(k in a) then
        include(a,k);
      k:=random(255);
      if not(k in b) then
        include(b,k)
    end;
  writeln('Множество А:');
  for i:=0 to 255 do
    if i in a then
      write(i:4);
  writeln;
  writeln('Множество B:');
  for i:=0 to 255 do
    if i in b then
      write(i:4);
  writeln;
  k:=0;
  writeln('Результат:');
  for i:=0 to 255 do
    if (not odd(i)) and ((i in a) or (i in b)) then
      begin
        write(i:4);
        inc(k);
      end;
  writeln;
  writeln('Количество: ',k);
  readln;
end.

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

Создаются два пустых множества: A и B, которые представляют собой множества целых чисел.
Используется функция randomize для инициализации генератора случайных чисел.
В цикле for перебираются все возможные числа от 0 до 255.
Для каждого числа k проверяется, содержится ли оно уже в множестве A. Если нет, то число k добавляется в множество A с помощью функции include.
Затем проверяется, содержится ли число k в множестве B. Если нет, то число k добавляется в множество B с помощью функции include.
После проверки всех чисел, выводится содержимое множества A и множества B.
Далее выводится результат: все нечетные числа, которые содержатся хотя бы в одном из множеств A или B. Количество таких чисел сохраняется в переменной k.
В конце программы выводится количество найденных нечетных чисел.