Определить и вывести на экран числа, которых нет ни в одной множественном числе

type mt = set of integer;
var
  a: array of mt;
  rmn: mt;
  hmn: mt;
  dvn, dve: integer;
begin
  dvn:= ReadInteger('Введите минимально допустимое значение ');
  dve:= ReadInteger('Введите максимально допустимое значение ');
  for var i:= dvn to dve do
    rmn += [i];
  a:= new mt [ReadInteger('Введите количество множеств ')];
  for var i:= 0 to a.Length-1 do
    while true do
      try
        var pc:= System.Console.CursorLeft;
        var nz: integer;
        repeat
          nz:= ReadInteger;
          System.Console.CursorTop -= 1;
          System.Console.CursorLeft:= pc;
        until nz in [dvn..dve];
        a[i] += [nz];
        System.Console.CursorLeft:= pc + nz.ToString.Length;
        Write('; ');
      except
        break;
      end;
  for var i:= 0 to a.Length-1 do
    Writeln('Множество №', i , ' :', a[i]);
  for var i:= 0 to a .Length-1 do
    rmn:= rmn - a[i];
  Writeln('Числа, отсутствующие в введеных множествах: ',rmn);
  var hzn:= ReadInteger('Введите номер множества для проверки уникальности значений: ');
  for var i:= 0 to a.Length-1 do
    if hzn <> i
      then
        hmn += a[i];
  Writeln('Уникальные значения в множестве №', hzn, ' : ', a[hzn]-hmn);
end.

program pr;
 
var
  s, s2, s3,ob, s4, s5, ps, exl: set of integer;
  n, j: integer;
 
procedure fill(var v: set of integer; c: integer);
var
  m, i: integer;
begin
  for i := 1 to c do
  begin
    read(m);
    include(v, m);
  end;
end;
 
begin
  s := [];
  s2 := [];
  s3 := [];
  s4 := [];
  s5 := [];
  ps := [];
  ob:=[];
  exl := [];
  writeln('Введите количество элементов 1 множества');
  readln(n);
  fill(s, n);
  writeln;
  writeln('Введите количество элементов 2 множества');
  readln(n);
  fill(s2, n);
  writeln;
  writeln('Введите количество элементов 3 множества');
  readln(n);
  fill(s3, n);
  writeln;
  writeln('Введите количество элементов 4 множества');
  readln(n);
  fill(s4, n);
  writeln;
  writeln('Введите количество элементов 5 множества');
  readln(n);
  fill(s5, n);
  writeln;
  writeln('1 множество: ', s);
  writeln('2 множество: ', s2);
  writeln('3 множество: ', s3);
  writeln('4 множество: ', s4);
  writeln('5 множество: ', s5);
  for j := 0 to 100 do
    if not (j in s) and not (j in s2) and not (j  in s3) and not (j in s4) and not (j in s5) then
    begin
      include(exl, j);
    end;
  writeln(' Множество состоящее из чисел, которых нет ни в одном множестве : ', exl);
  ps := s2 - (s + s3 + s4 + s5);
  writeln('Элементы которые есть только во 2 множестве ', ps);
   ob := (s * s2 * s3 * s4 * s5);
  writeln('Пересечение всех множеств: ', ob);
end.