Задать два множества А и В (числа от 1 до 200), найти их объединение — Pascal(Паскаль)

program mnojestvo;
var 
   a,b,c: set of 1..200; 
    j,x: byte;
begin
   writeln('Введите элементы множества A');
     for j:=1 to 5 do
        begin
         write (j,' элемент ');
         read (x);
         a:=a+[x]
        end;
   writeln('Введите элементы множества B');
    for j:=1 to 5 do
        begin
         write (j,' элемент ');
         read (x);
         b:=b+[x]
       end;
    c:=a+b;
    writeln;
    writeln ('Объединение множеств A и B есть множество:');
    for x:=1 to 200 do
       If (x in c) then writeln (x);
       if c=[] then writeln ('Пустое');
   readln;
end.

program mnojestvo;
type 
   mn= set of char;
var 
   A,B,C: mn; sym : char;
procedure ReadMnog(Var Mnog: mn);
var 
   s: string; 
   i: integer;
begin
Mnog:=[];
write('Введите множество: ');
readln(s);
for i:=1 to Length(s) do Mnog:=Mnog+[s[i]]; 
end;
Begin
ReadMnog(A);
ReadMnog(B);
C:=[]; 
C:=A+B; 
write('Объединение множеств С=');
 for sym:=CHR(1) to CHR(255) do
     if sym in C then Write(sym:2); 
  readLn;
end.