Определить, есть ли в классе человек, который побывал в гостях у всех?

uses crt;
type imena=(lb,tn,ln,ks,ns,mr,jn);//перечислимый тип для создания множеств
     mnz=set of imena; //тип множеств
const k=6;
      sp:array[0..k] of string=('Люба','Таня','Лена','Ксюша',
                                  'Настя','Марина','Женя');//массив имен
var m:array[0..k] of mnz; //массив множеств
     i:imena;  //счетчик перечислимого типа
    j,v:byte; //счетчики целого типа
    f:boolean;
begin
clrscr;
//формируем множества
writeln('Перечислите кто побывал в гостях у данного ученика');
for j:=0 to k do
 begin
  writeln(sp[j]);
  m[j]:=[];
  writeln('Выберите имена кроме ',sp[j]);
  writeln('0-Люба 1-Таня 2-Лена 3-Ксюша 4-Настя 5-Марина 6-Женя 7-выход');
  repeat
   read(v);
   if (v in [0..k])and(v<>j) then m[j]:=m[j]+[imena(v)];
  until v=7;
  clrscr;
 end;
//выведнм на экран что получилось
writeln('Были в гостях у');
for j:=0 to k do
 begin
  write(sp[j],'-> ');
  for i:=lb to jn do
  if i in m[j] then write(sp[ord(i)],' ');
  writeln;
 end;
f:=false;
i:=lb;
while(i<=jn)and not f do
 begin
  v:=0;
  for j:=0 to k do
  if(j<>ord(i))and (i in m[j]) then v:=v+1;
  if v=k-1 then f:=true else inc(i);
 end;
if f then write('Есть ученик, побывавший в гостях у всех')
else write('Нет ученика, побывавшего в гостях у всех')
end.