Множества: Определить множество студентов, которые не увлекаются, ни искусством, ни спортом

{В группе есть студенты, увлекающиеся спортом, и студенты увлекающиеся искусством. 
Определить множество студентов, которые не увлекаются, ни искусством, ни спортом.}
 
 
program stud1;
 
var
  a, b, c: array [0..255] of string;
  x, y, z, i, j: integer;
  m1, m2, m3: set of byte;
 
begin
  
  
  
  writeln('Введите количество студентов в группе');
  readln(x);
  
  for i := 1 to x do 
  begin
    writeln('Фамилия ', i, ' студента');
    readln(a[i]);
  end;
  
  writeln('Количество студентов,которые занимаются спортом');
  readln(y);
  
  {Здесь проверяем ввод количества студентов, которые занимаются спортом,
  оно не может привышать количество студентов в группе}
  
  while y > x do 
  begin
    if y > x then writeln('Неверено введены данные, повторите ввод') else break;
    readln(y);
  end;
  
  
  writeln('Введите фамилии студентов, которые занимаются спортом');
  
  for i := 1 to y do readln(b[i]);
  
  
  writeln('Количество студентов, которые занимаются искусством');
  readln(z);
  
  {Здесь проверяем ввод количества студентов, которые занимаются 
  искусством,оно не может привышать  количество студентов группы }
  
  while z > x do 
  begin
    if z > x then writeln('Неверено введено количество студентов, которые занимаюся искусством.') else break;
    readln(z);
  end;
  
  
  writeln('Введите фамилии студентов, которые занимаются искусством');
  for i := 1 to z do readln(c[i]);
  
  
  
  for i := 1 to x do include(m1, i); // В первое множество вносим номера всех студентов
  
  for i := 1 to y do
    for j := 1 to x do
      if a[j] = b[i] then include(m2, j); // Проверяем введенные фамилии на соответствия с массивом "Студенты", если равны, то добавляем в множество
  
  for i := 1 to z do
    for j := 1 to x do
      if a[j] = c[i] then include(m3, j); // Проверяем введенные фамилии на соответствия с массивом "Студенты", если равны, то добавляем в множество
  
  
  m1 := m1 - (m2 + m3); // Вычитаем из множества студенты множества "Спорт" и "Искусство"
  
  
  
  if m1 = [] then writeln('Все студенты занимаются, либо искусстов, либо спортом') else
  begin
    
    writeln('Студенты, которые не занимаются ни спортом, ни искусством');
    
    
    for i := 1 to x do
      if i in m1 then writeln(a[i]);
    
  end;
  
end.