Объединение двух целочисленных множеств A и И - Pascal ABC

[Reatar]

Помогите разобраться с объединением множеств.

type
  mnoj = object
    a: array of string;
    function Ob(m2: mnoj): mnoj;
    procedure Add(x: string);
    function Check(x: string): boolean;
    procedure Print;
  end;
function summa(a: integer): integer;
begin
  if (a = 0) then
    summa := 0
  else
    summa := a mod 10 + summa(a div 10);
end;
function mnoj.Ob(m2: mnoj): mnoj;
var
  i,n: integer;
begin
  for I := 0 to (length(a)-1) do
    ob.Add(a[i]+a[i]);
end;
 
procedure mnoj.Add(x: string);
begin
  if Check(x) then
    exit;
 
  if (length(x) < 1) then
 
  begin
    Writeln('Введенные данные не соответствуют заданию!');
    exit;
  end;
 
  SetLength(a, length(a) + 1);
  a[length(a) - 1] := x;
end;
 
function mnoj.Check(x: string): boolean;
var
  i: integer;
begin
  for i := 0 to length(a) - 1 do
    if a[i] = x then
    begin
      Check := true;
      exit;
    end;
 
  Check := false;
end;
 
procedure mnoj.Print;
var
  i: integer;
begin
  for i := 0 to length(a) - 1 do
    Write(a[i] + ', ');
  Writeln;
  Writeln;
end;
 
var
  a, b, c: mnoj;
  x, i: integer;
  z: string;
 
begin
  while true do
  begin
    Writeln(' 1. Введите А             ');
    Writeln(' 2. Введите В             ');
    Writeln(' 3. Объединение                   ');
    Writeln(' 4. Проверить элемент в А ');
    Writeln(' 5. Проверить элемент в B ');
    Writeln(' 6. Вывести всё           ');
    write(': ');
    readln(x);
    Writeln;
 
    case x of
      1:
        begin
          write('Введите число: ');
          readln(z);
          if (StrToInt(z) > 0) and (summa(StrToInt(z)) mod 2 = 0) then
          begin
          a.Add(z);
          write('A: ');
          a.Print;
          end
          else writeln('Please repeat');
        end;
      2:
        begin
          write('Введите число: ');
          readln(z);
          if (StrToInt(z) > 0) and (summa(StrToInt(z)) mod 2 = 0) then
          begin
          b.Add(z);
          write('B: ');
          b.Print;
          end
          else writeln('Please repeat');
        end;
      3:
        begin
          c := a.ob(b);
          Write('Объединение: ');
          c.Print
        end;
      4:
        begin
          write('Введите число: ');
          readln(z);
          if a.Check(z) then
            Writeln('Такой элемент есть в А!')
          else
            Writeln('Такого элемента нет в А!');
          Writeln;
        end;
      5:
        begin
          write('Введите число: ');
          readln(z);
          if b.Check(z) then
            Writeln('Такой элемент есть в В!')
          else
            Writeln('Такого элемента нет в В!');
          Writeln;
        end;
      6:
        begin
          write('A: ');
          a.Print;
          write('B: ');
          b.Print;
          write('C: ');
          c.Print;
        end;
    else
      exit;
    end;
  end;
end.