Пересечение множеств

[Adelia]

Всем,программистами любителям,добрый день.
Прошу помогите разобраться с задачей.
Вот условия:
Даны два неупорядоченных набора целых чисел (может быть, с повторениями). Выдать без повторений в порядке возрастания все те числа, которые встречаются в обоих наборах.
Пример
INPUT.TXT
11 6
2 4 6 8 10 12 10 8 6 4 2
3 6 9 12 15 18

OUTPUT.TXT
6 12
Я две этих набора загнала в один массив и нашла элементы входящие и в тот и в другой набор(один массив чтобы ускорить работу и сократить память),но вот незадача,он выводит их с повтором.
Прошу помогите.

вот попытка моего решения:

var a,N,M:integer;i,k,:byte;
    f:text;
    b:array [1..100] of integer;
begin
assign(f,'c:\Users\Аделя\Desktop\Input.txt');
reset(f);
read(f,N,M);
readln(f);

for i:=1 to N do
 begin
   read(f,a);
   b[i]:=a;
 end;
readln(f);{перехожу на другую строчку к 2 набору}
for i:=n+1 to N+M do
 begin
   read(f,a);
   b[i]:=a;
 end;

assign(f,'c:\Users\Аделя\Desktop\Output.txt');
rewrite(f);

for i:=1 to N do{здесь я как бы разграничила два набора}
  for k:=n+1 to m+n do
    if (b[i]=b[k]) then write(f,b[i],' ');

close(f); 
end.

Заранее всех благодарю за помощь))

[Vapaamies]

Задача на множества и пересечение множеств, как полагаю из заголовка темы. Множество обозначается в Паскале конструкцией set of, а пересечение множеств, оператором * (звездочка). Дерзайте.

[min@y™]

Сообщение от Vapaamies

Задача на множества и пересечение множеств, как полагаю из заголовка темы. Множество обозначается в Паскале конструкцией set of, а пересечение множеств, оператором * (звездочка). Дерзайте.

а вывести на экран элементов множества можно с помощью оператора in.

[Adelia]

извините,а не подскажете ,как считать числа с файла и засунуть их в множество?

[Adelia]

попыталась сделать как вы посоветовали ,я раньше с множествами не сталкивалась,поэтому коряво немного.

var a,N,M:integer;i,k:byte;
    f:text;
    c,b,z:set of byte;
begin
assign(f,'c:\Users\Аделя\Desktop\Input.txt');
reset(f);
read(f,N,M);
readln(f);

for i:=1 to N do
 begin
   read(f,a);
   b:=b+a;
 end;
readln(f);
for i:=1 to M do
 begin
   read(f,a);
   c:=c+a;
 end;

assign(f,'c:\Users\Аделя\Desktop\Output.txt');
rewrite(f);
z:=c*b;
for i:=1 to 255 do
if i in z then write(f,i,' ');
end.