Что еще нужно написать?

[Avvakymova]

Помогите пожалуйста,нужно вывести еще объединение этих множеств,что еще нужно???
program p2;
var i, n, m: word;
A,W, B: set of char;
s: string[100];
ch: char;
A_B, B_A: set of char;

begin
write('n = ');
readLn(n);

A := [];
for i:=1 to n do
begin
write('A[', i, '] = ');
readLn(ch);
A := A + [UpCase(ch)];
end;

write('m = ');
readLn(m);
B := [];
for i:=1 to m do
begin
write('B[', i, '] = ');
readLn(ch);
B := B + [UpCase(ch)];
end;
W:=

A_B := [];
B_A := [];
W:=A_B+B_A;
for ch := 'A' to 'Z' do
begin
if (ch in A) and not(ch in B) then A_B := A_B + [ch];
if not(ch in A) and (ch in B) then B_A := B_A + [ch];
end;

write('A/B = ');
for ch := 'A' to 'Z' do if ch in A_B then
write(ch);
writeln;
write('B/A = ');
for ch := 'A' to 'Z' do if ch in B_A then
write(ch);
for ch:= 'A' to 'Z' do if ch in W then
write(ch);
readln;
end.