паскаль. тема: множества

[TOCMYANINA]

Даны две последовательности x[1..n], y[1..m] чисел из интервала 100..150. Найти все элементы, которые входят в Х, но не входят в Y.

[Андрей.12]

var x,y,p,p1 :set of 1..150;
i,n,a,b:integer;
begin
x:=[];
y:=[];
p:=[];
for i:=1 to n do
begin
readln(a);
readln(b);
x:=x+[a];
y:=x+[b];
end;
begin
for i:=1 to n do
begin
if (i in x) and (i in y) then
i:=i+1
else
p:=p+[i];
end;
end;
end.

как то так