Пусть заданы множество А и множество В целых чисел, вывести (напечатать) все элементы множества В которые не входят в множество А — Pascal(Паскаль)

uses crt;
type mnoz=set of byte;
var a,b:mnoz;
    n,i:byte;
begin
clrscr;
writeln('Создайте множество A из чисел от 0 до 255, окончание ввода 0:');
a:=[];
repeat
 repeat
  readln(n);
 until n in [0..255];
 a:=a+[n];
until n=0;
writeln('Создайте множество B из чисел от 0 до 255, окончание ввода 0:');
b:=[];
repeat
 repeat
  readln(n);
 until n in [0..255];
 b:=b+[n];
until n=0;
clrscr;
writeln('Множество А:');
for i:=0 to 255 do
if i in a then write(i,' ');
writeln;
writeln;
writeln('Множество B:');
for i:=0 to 255 do
if i in b then write(i,' ');
writeln;
writeln;
writeln('Числа из множества В, которых нет в А:');
for i:=0 to 255 do
if (i in b)and not(i in a) then write(i,' ');
readln
end.