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

[iNsomNia7]

Готовлюсь к олимпиаде, возникли некоторые проблемы с задачей:


Пересечение множеств
(Время: 1 сек. Память: 16 Мб Сложность: 34%)
Даны два неупорядоченных набора целых чисел (может быть, с повторениями). Выдать без повторений в порядке возрастания все те числа, которые встречаются в обоих наборах.

Входные данные

В первой строке входного файла INPUT.TXT записано через пробел два целых числа N и М (1 ≤ N, М ≤ 106) — количество элементов первого и второго наборов, соответственно. В следующих строках записано сначала N чисел первого набора, а затем M чисел второго набора. Числа разделены пробелами или символами конца строки. Каждое из этих чисел попадает в промежуток от 0 до 105.

Выходные данные

В выходной файл OUTPUT.TXT нужно записать в возрастающем порядке без повторений все числа, которые входят как в первый, так и во второй набор. Числа разделять одним пробелом. Если таких чисел нет, то выходной файл должен оставаться пустым.

Пример

program abc;
var q,w,c: array[1..100] of integer;
    i,j,a,b,z,x,k,l,r:integer;
begin
assign(input, 'input.txt');
reset(input);
assign(output, 'output.txt');
rewrite(output);
read(a, b);
for i:=1 to a do begin
                  read(z);
                  q[i]:=z;
                 end;
for i:=1 to b do begin
                  read(x);
                  w[i]:=x;
                 end;
for i:=1 to a do
 for j:=1 to b do begin
                   if q[i]=w[j] then begin
                                      k:=k+1;
                                      c[k]:=q[i];
                                      break;
                                     end;
                  end;
for i:=1 to k-1 do
 for j:=i+1 to k do
  if c[i]=c[j] then begin
                     for l:=j to k do
                      c[l]:=c[l+1];
                      k:=k-1;
                    end;
for i:=1 to k-1 do
 for j:=i+1 to k do
  if c[i]>c[j] then begin
                     r:=c[i];
                     c[i]:=c[j];
                     c[j]:=r;
                    end;
for i:=1 to k do write(c[i], ' ');
end.

[Stilet]

Даю подсказку:

var s3,s1,s2:set of 1..105; i:integer;
begin  Randomize;
 for i:=1 to 10 do include(s1,1+Random(10));
 for i:=1 to 5 do include(s2,1+Random(10));

 for i:=1 to 105 do if i in s1 then write(i:5);writeln;
 for i:=1 to 105 do if i in s2 then write(i:5);writeln;

 s3:=s1*s2;
 for i:=1 to 105 do if i in s3 then write(i:5);writeln;

 readln;
end.

Так обрабатываются множества.
Замени мой ввод через random на свой ввод из файла используй read для этого.