Лабораторная работа3

uses crt;
type a=set of char;
b=set of char;
var
a1:a;
b1:b;
vyv: string;
i,j,n:integer;
el,x:char;
begin
 a1:=[];
 b1:=[];
 writeln('vvedite kolichestvo elementov mnojestva');
 readln(n);
 for i:=1 to n do
  begin
    writeln('vvedite element mnojestva');
    readln(el);
    if not(el in a1) then
     a1:=a1+[el];
  end;
 writeln('vvedite x: ');
 readln(x);

 if x in a1 then
 begin
  b1:=a1-[x];
  writeln('x soderjitsya v a1, sformirovano novoe mnojestvo b1=a1-[x]')
 end
  else
   writeln('x ne soderjitsya v mnojestve a1');
readkey;
end.