Вывести на экран нечетные элементы числового множества, которое является разностью двух других множеств - PascalABC.NET

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

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

Решение задачи: «Вывести на экран нечетные элементы числового множества, которое является разностью двух других множеств»

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

function inputSet : Set of Integer;
begin
  Result := [];
  var N := ReadLnInteger('Число элементов =');
  for var i := 1 to N do
    begin
      var Elem := ReadLnInteger(i.ToString + ' элемент =');
      Result += [Elem];
    end;
end;
 
begin
  WriteLn('введите элементы 1 множества:'); var U1 := inputSet;
  WriteLn('введите элементы 2 множества:'); var U2 := inputSet;
  
  WriteLn('1 множество: ', U1);
  WriteLn('2 множество: ', U2);
  
  var Res  : Set of Integer := U1 - U2;
  var Elem := 0;
  foreach Elem in Res do
    if not odd(Elem) then
      Res -= [Elem];
 
  Write('Нечётные элементы множества, которое является разностью первого и второго: ', Res);
end.

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

Список действий в коде:

Ввод количества элементов первого и второго множества (N).
Ввод элементов первого множества (U1).
Ввод элементов второго множества (U2).
Вывод первого множества (U1).
Вывод второго множества (U2).
Вычисление разности первого и второго множества (Res).
Удаление всех чётных элементов из полученного множества (Res).
Вывод нечётных элементов полученного множества (Res).