Работа с массивами (Delphi) ( Разработать программу построения симметричной разницы массивов и поиска ее минимального значения)

[Mr_Nobody]

Задано массивы чисел A (n), n ≤ 300 и B (m), m ≤ 400 Разработать программу построения симметричной разницы массивов A \ B U B \ A и поиска ее минимального элемента. (A \ B U B \ A - множество элементов A, не входящих в B и множество элементов B, не входящих в A и взятых по одному разу). Использовать процедуру для построения симметричной разницы и функцию для поиска минимального элемента. Напечатать элементы симметричной разницы и ее минимальный элемент.

Как вывести в третий массив разницу массивов А и В?

Массивы заполнял таким образом:

procedure TForm2.Button1Click(Sender: TObject);
begin
randomize;
for i := 1 to d do begin
a[i]:=random(40)+1;
end;
for i := 1 to d do begin
Edit1.Text:=Edit1.Text+IntToStr(a[i])+' ';
end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
 for i := 1 to m do begin
b[i]:=random(40)+1;
 end;
 for i := 1 to m do begin
Edit2.Text:=Edit2.Text+IntToStr(b[i])+' ';
 end;
 end;