Лаба про множество

uses crt;                        {создаем тип кружки(русские буквы нельзя, поэтому}
type krz=set of (hr,am,ft,hg,sh,tk);  {сокращенно англиискими)         }
var m,m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,MR:krz; {десять классов + результат}
    s:array[1..6]of krz;           {массив кружков}
    s1:array[1..6]of string;       {массив названий кружков}
    i,k:integer;
begin
clrscr;
m1:=[hr,ft,sh];   {первый класс, можно любой набор кружков}
m2:=[hr,ft,sh];   {второй}
m3:=[tk,sh,ft,hr];  {третий}
m4:=[tk,sh,ft];
m5:=[sh,ft,hr];
m6:=[tk,ft,hr];
m7:=[tk,sh,hr];
m8:=[tk,sh,ft];
m9:=[tk,sh];
m10:=[tk,sh,ft,hr];
{заполняем массив кружков переменными из множества}
s[1]:=[hr];s[2]:=[am];s[3]:=[ft];s[4]:=[hg];s[5]:=[sh];s[6]:=[tk];
{заполняем массив названий кружков }
s1[1]:='Хор';s1[2]:='Авиамодельный';s1[3]:='Фото';
s1[4]:='Художественная гимнастика';s1[5]:='Шахматы';s1[6]:='Туристический';
MR:=[];  {пустое множество}
for i:=1 to 6 do
if (s[i]*m1=s[i])or(s[i]*m2=s[i])or(s[i]*m3=s[i])
or(s[i]*m4=s[i])or(s[i]*m5=s[i])or(s[i]*m6=s[i])or(s[i]*m7=s[i])
or(s[i]*m8=s[i])or(s[i]*m9=s[i])or(s[i]*m10=s[i]) then
MR:=MR+s[i]; {составляем множество кружков, в которых занимаются}
k:=0;
writeln('Занимаются хотя бы в одном классе:');
for i:=1 to 6 do
if s[i]*MR<>[] then  {если кружок есть в этом множестве}
   begin
     writeln(s1[i]); {выводим}
     k:=k+1;
   end;
if k=0 then writeln('Таких кружков нет');
readln
end.