Задача на множества

[Mastak]

В институте имеются секции по следующимвидам спорта:
лыжи, коньки,хоккей, футбол, регби. самбо. Известны виды спорта, которыми занимаются учащиеся каждой группы. Количество групп -4. Требуется построить и распечатать множество видов спорта:
1) которыми занимаются хотя бы в одной группе.
2) которыми не занимаются во всех группах

[puporev]

Задача не на ум, на писанину. Наверное тебе писать лень. Замени все буквы, которыми я обозначил виды спорта, на нормальные слова.

program mnog;
uses crt;
type
sport = set of (l,k,h,f,r,s);
var g1,g2,g3,g4:sport;
s1,s2:array[1..5] of string;
m,n,i:integer;
begin
clrscr;
g1:=[l,k];
g2:=[h,k];
g3:=[f];
g4:=[f,h];
m:=1;n:=1;
if (l in g1) or (l in g2) or (l in g3) or (l in g4) then
begin
s1[m]:='l';m:=m+1;
end
else
begin
s2[n]:='l';n:=n+1;
end;
if (k in g1) or (k in g2) or (k in g3) or (k in g4) then
begin
s1[m]:='k';m:=m+1;
end
else
begin
s2[n]:='k';n:=n+1;
end;
if (h in g1) or (h in g2) or (h in g3) or (h in g4) then
begin
s1[m]:='h';m:=m+1;
end
else
begin
s2[n]:='h';n:=n+1;
end;
if (f in g1) or (f in g2) or (f in g3) or (f in g4) then
begin
s1[m]:='f';m:=m+1;
end
else
begin
s2[n]:='f';n:=n+1;
end;
if (r in g1) or (r in g2) or (r in g3) or (r in g4) then
begin
s1[m]:='r';m:=m+1;
end
else
begin
s2[n]:='r';n:=n+1;
end;
if (s in g1) or (s in g2) or (s in g3) or (s in g4) then
begin
s1[m]:='s';m:=m+1;
end
else
begin
s2[n]:='s';n:=n+1;
end;
writeln('Zanimajutsa:');
for i:=1 to m do
writeln(s1[i]);
readln;
writeln('Ne zanimajutsa:');
for i:=1 to n do
writeln(s2[i]);
readln;

end.

[Mastak]

огромное спасибо