Продемонстрировать операции над множествами

program Demonstrator;
 
type
 T_Digit = set of byte;
 
var
a,b,c: T_Digit;
i,kluch: integer;
dig,s: byte;
m: byte;
cod: char;
 
procedure outarr ( nam: byte; n1 : T_Digit);
var
i: Byte;
begin
 writeln;
 case nam of
 1: writeln ('Множество a: '  );
 2: writeln ('Множество b: '  );
 3: writeln ('Множество c: '  );
 end;
 
 for i := 0 to 255 do
    if i in n1 then
       write(i:4);
end;
 
begin
//a:=[1,3,6,9,11,16,23,34,43,45];
//b:=[0,3,4,6,10,18,20,24,45,49];
Writeln('Введите максимальное число членов множества а:');
Readln(m);
Writeln('Введите элементы множества a:');
for i:=1 to m do
   begin
     read(s);
     Include(a, s);
   end;
writeln;
Writeln('Введите максимальное число членов множества а:');
Readln(m);
Writeln('Введите элементы множества b:');
for i:=1 to m do
   begin
     read(s);
     Include(b, s);
   end;
writeln;
outarr(1,a);
outarr(2,b);
 
repeat
writeln;
writeln ('Введите число, если хотите увидеть результат операций с множествами:');
writeln ('Введите 1, для демонстрации операции присвоения.');
writeln ('Введите 2, для демонстрации операции объединения.');
writeln ('Введите 3, для демонстрации операции пересечения.');
writeln ('Введите 4, для демонстрации операции дополнения.');
writeln ('Введите 5, для демонстрации операции тождественности.');
writeln ('Введите 6, для демонстрации операции не тождественности.');
writeln ('Введите 7, для демонстрации операции поиска содержания во множестве.');
writeln ('Введите 8, для демонстрации операции поиска содержит множество.');
writeln ('Введите 9, для демонстрации операции поиска принадлежности элемента множеству.');
Readln(kluch);
case kluch of
1: begin
     writeln ('Операция присвоения с:=a');
     writeln ('Состояние множества до операции:');
     outarr(1,a);
     outarr(3,c);
     writeln;
     writeln;
     writeln ('Состояние множества после операции:');
     c:=a;
     outarr(1,a);
     outarr(3,c);
 
   end;
2: begin
     c:=[];
     writeln ('Операция объединения с:= a + b');
     writeln ('Состояние множества до операции:');
     outarr(1,a);
     outarr(2,b);
     outarr(3,c);
     writeln;
     writeln;
     writeln ('Состояние множества после операции:');
     c:= a + b;
     outarr(1,a);
     outarr(2,b);
     outarr(3,c);
 
   end;
3: begin
     c:=[];
     writeln ('Операция пересечения с:= a * b');
     writeln ('Состояние множества до операции:');
     outarr(1,a);
     outarr(2,b);
     writeln;
     writeln;
     writeln ('Состояние множества после операции:');
     c:= a * b;
     outarr(1,a);
     outarr(2,b);
     outarr(3,c);
 
   end;
4: begin
     c:=[];
     writeln ('Операция дополнение с:= a - b');
     writeln ('Состояние множества до операции:');
     outarr(1,a);
     outarr(2,b);
     writeln;
     writeln;
     writeln ('Состояние множества после операции:');
     c := a - b;
     outarr(1,a);
     outarr(2,b);
     outarr(3,c);
 
   end;
5: begin
     writeln ('Операция тождественности a = b');
     writeln ('Состояние множества до операции:');
     c:=a;
     outarr(1,a);
     outarr(3,c);
     writeln;
     writeln;
    if a = c then
       writeln ('Множества тождественны.')
     else
       writeln ('Множества не тождественны.');
   end;
6: begin
      writeln ('Операция не тождественности a <> b');
     writeln ('Состояние множества до операции:');
     outarr(1,a);
     outarr(2,b);
     writeln;
     writeln;
    if a <> b then
       writeln ('Множества не тождественны.')
     else
       writeln ('Множества тождественны.');
 
   end;
7: begin
     writeln ('Операция поиска содержания во множестве [1,8] <= a .');
     writeln ('Состояние множества до операции:');
     outarr(1,a);
     writeln;
     writeln('Множество: [1,8]');
 
    if [1,8] <= a then
       writeln ('Множество содержится в другом множестве')
     else
       writeln ('Множество не содержится в другом множестве');
 
   end;
8: begin
     writeln ('Операция поиска содержит множество a >= [3,4].');
     writeln ('Состояние множества до операции:');
     outarr(1,a);
     writeln;
     writeln('Множество: [3,4]');
    if a >= [3,4] then
       writeln ('Множество содержит подмножество')
     else
       writeln ('Множество не содержит подмножество');
 
   end;
9: begin
     writeln ('Операция поиска принадлежности элемента множеству');
     writeln ('Состояние множества до операции:');
     outarr(1,a);
     writeln;
     writeln('Введите число в диапазоне от 0 до 255');
     Readln(dig);
    if dig in a then
       writeln ('Число принадлежит множеству')
     else
       writeln ('Число не принадлежит множеству');
 
   end;
end;
 
writeln;
writeln('Введите символ "i" и нажмите клавишу "Enter", чтобы выйти из программы.');
writeln('Нажмите клавишу "Enter" чтобы продолжить.');
readln(cod);
 
until  Ord(cod)=ord('i');
end.