Заданы имена девушек. Определить, какие из этих имен встреча.тся во всех классах данной параллели, в некоторых классах и какие ни в одном классе — Pascal(Паскаль)

Uses Crt;
type
names = (anya,masha,lyuba,olya,kolya,zhenya);
 
Var
a,b,c : set of names;
mas : array[0..4] of string = ('anya','masha','lyuba','olya','kolya');
i : integer;
k : names;
 
Begin
ClrScr;
a := [anya,masha,lyuba];
b := [anya,masha,olya];
c := [anya,masha,kolya];
{----------}
writeln('Est vo vseh klassah: ');
for k := anya to zhenya do
 begin
 if (k in a) and (k in b) and (k in c) then
  write(mas[ord(k)],'  ');
 end;
writeln;
writeln;
writeln('Net ni v odnom klasse: ');
for k:=anya to zhenya do
 begin
 if not (k in a) and not (k in b) and not (k in c) then
  write(mas[ord(k)],'  ');
 end;
writeln;
writeln;
writeln('tolko v klasse A: ');
for k:=anya to zhenya do
 begin
 if (k in a) and not (k in b) and not (k in c) then
  write(mas[ord(k)],'  ');
 end;
Readln
END.