Задано множество вычислительных машин, которыми может быть обеспечен техникум

uses crt;
type evm=(ec1035,ec1045,ec1036,ec1066,cm3,cm4,iskra);
     tehn=set of evm;
const n=10;
      nn=7;
      sp:array[0..nn-1] of string=
      ('ЕС1035','ЕС1045','ЕС1036','ЕС1066','СМЗ','СМ4','ИСКРА');
var m:array[1..n] of tehn;
    res:tehn;
    j:evm;
    i,k,p:byte;
    nz:string;
begin
writeln('Перечислите какими ВМ обеспечены техникумы:');
for i:=1 to n do
 begin
  writeln('Техникум ',i);
  m[i]:=[];
  writeln('0-ЕС1035 1-ЕС1045 2-ЕС1036 3-ЕС1066 4-СМЗ 5-СМ4 6-ИСКРА 7-выход');
  repeat
   repeat
   readln(k);
   until k in [0..7];
   if k in [0..6] then m[i]:=m[i]+[evm(k)];
  until k=7;
 end;
clrscr;
writeln('Все виды ВМ');
for j:=ec1035 to iskra do
write(sp[ord(j)],' ');
writeln;
writeln('Press Enter');
readln;
for i:=1 to n do
 begin
  writeln('Группа ',i);
  for j:=ec1035 to iskra do
  if j in m[i] then write(sp[ord(j)],' ');
  writeln;
  writeln('Press Enter');
  readln;
 end;
writeln('Виды ВМ, которыми обеспечены все техникумы');
res:=[];
for j:=ec1035 to iskra do
 begin
  k:=0;
  for i:=1 to n do
  if j in m[i] then k:=k+1;
  if k=n then res:=res+[j];
 end;
if res=[] then writeln('Таких видов ВМ нет')
else
 for j:=ec1035 to iskra do
 if j in res then write(sp[ord(j)],' ');
writeln;
writeln('Press Enter');
readln;
writeln('Виды ВМ, которые имеет хотя бы один техникум:');
res:=[];
for j:=ec1035 to iskra do
 begin
  k:=0;
  for i:=1 to n do
  if j in m[i] then k:=k+1;
  if k>0 then res:=res+[j];
 end;
if res=[] then writeln('Таких видов ВМ нет')
else
 for j:=ec1035 to iskra do
 if j in res then write(sp[ord(j)],' ');
writeln;
writeln('Press Enter');
readln;
writeln('Виды ВМ, которых нет ни в одном техникуме:');
res:=[];
for j:=ec1035 to iskra do
 begin
  k:=0;
  for i:=1 to n do
  if j in m[i] then k:=k+1;
  if k=0 then res:=res+[j];
 end;
if res=[] then writeln('Таких видов BM нет')
else
 for j:=ec1035 to iskra do
 if j in res then write(sp[ord(j)],' ');
writeln;
writeln('Press Enter');
readln;
writeln('Виды BM, которые есть хотя бы в трех техникумах:');
res:=[];
for j:=ec1035 to iskra do
 begin
  k:=0;
  for i:=1 to n do
  if j in m[i] then k:=k+1;
  if k>4 then res:=res+[j];
 end;
if res=[] then writeln('Таких видов BM нет')
else
 for j:=ec1035 to iskra do
 if j in res then write(sp[ord(j)],' ');
writeln;
end.