Пользователь вводит элементы двух символьных множеств А и В.

[mimit]

Пользователь вводит элементы двух символьных множеств А и В. Требуется: сформировать новое множество С (заштрихованная область на рисунке), вывести полученное множество на экран.

var a: set of char;
    b: set of char;
    m1: set of char;
    m2: set of char;
    c: set of char;
begin

  m1:=[];
  m2:=[];
  m1:=a+b;
  m2:=a*b;
  c:=m1-m2;

end.

Объясните мне пожалуйста как написать код чтобы пользователь сам вводил множества a и b. В задаче дан тип чар и я не могу понять что нужно написать чтобы пользователь сам вводил символы

[mimit]

var a: set of char;
    b: set of char;
    m1: set of char;
    m2: set of char;
    c: set of char;
    i,n,k,j:integer;
    x,z:char;
begin
  writeln('n');
  readln(n);
  for i:=1 to n do
  begin
  write('vvedite element', i, '=');
  readln(x);
  a:=a+[x];
  end;
  writeln;
  writeln('k');
  readln(k);
  for j:=1 to k do
  begin
  write('vvedite element', j, '=');
  readln(z);
  b:=b+[z];
  end;
  m1:=[];
  m2:=[];
  m1:=a+b;
  m2:=a*b;
  c:=m1-m2;
  readln;
end.

я сделал ввод помогите сделать вывод множества a b и с

[phomm]

For x := Low(Char) to High(Char) do
  if x in a then
    WriteLn(x);

Аналогично б с, можно скопировать, но лучше в процедуру обернуть.