Работа с множествами

Program Pidpryemstvo_2;
type
  Instrument = (rezetc,freza,sverdlo,zenker,zenkivka,
                rozvertka,cekivka,mitchyk,plashka,protyagka,shever);
  Asortyment = set of Instrument;
 
 Ceh :array[1..6] of Asortyment;
Begin
 Ceh[1]:=[freza,sverdlo,mitchyk,protyagka];
 Ceh[2]:=[cekivka,sverdlo,freza];
 Ceh[3]:=[mitchyk,sverdlo,zenker,rozvertka];

type
  Instrument = (rezetc,freza,sverdlo,zenker,zenkivka,
                rozvertka,cekivka,mitchyk,plashka,protyagka,shever);
  Asortyment = set of Instrument;
var
 Ceh :array[1..6] of Asortyment;
 instr :instrument;
Begin
 Ceh[1]:=[freza,sverdlo,mitchyk,protyagka];
 Ceh[2]:=[cekivka,sverdlo,freza];
 Ceh[3]:=[mitchyk,sverdlo,zenker,rozvertka];
 
 Ceh[1]:=Ceh[1]+Ceh[2]+Ceh[3];
 Ceh[2]:=[];
 for instr := rezetc to shever do Ceh[2] := Ceh[2] + [instr];
 Ceh[1]:=Ceh[2]-Ceh[1];
 for instr := rezetc to shever do
   if instr in Ceh[1] then writeln(instr);
 readln;
end.

  Ceh[2]:=[rezec..shever];

  Ceh[2]:=[Low(Instrument)..High(Instrument)];

  r:=[Low(Instrument)..High(Instrument)];
  for i:=Low(Ceh) to High(Ceh) do r:=r-Ceh[i];

const
  name: array [Instrument] of String[15] = ('резец','фреза','сверло','зенкер',
    'зенковка','развёртка','цековка','метчик','плашка','протяжка','шевер');
...
  for instr:=Low(Instrument) to High(Instrument) do
    if instr in r then WriteLn(name[instr]);

  for instr in Ceh do r:=r-instr;
  for instr in r do WriteLn(name[instr]);