Delphi,массивы, процедуры и функции

[Annn]

вообще ничего не понимаю в программировании..первым делом стоит убрать лишний ввод и вывод) а дальше не знаю((
Дано 2 одномерных массива, каждый из которых не содержит повторяющихся элементов. ПОстроить 3ий массив, содержащий все элементы, входящие хотя бы в один из исходных массивов. В третьем массиве не допускаются повторяющиеся элементы..
Вот мои каракульки по этому поводу:
const n=5;
m=7;
type Tmas1=array[1..n] of real;
Tmas2=array[1..m] of real;
Tmas3=array of real;
procedure vvod a1(var a1: Tmas1);
var i: integer;
begin
for i:=1 to n do
begin
write(‘a1[‘,i,’]=’);
readln(a1[i]);
end;
end;
procedure vvod a2(var a2: Tmas2);
var j: integer;
begin
for j:=1 to m do
begin
write(‘a2[‘,j,’]=’);
readln(a2[j]);
end;
end;
procedure print_a1(const Tmas1);
var i:integer;
begin
for i:=0 to n do
writeln(‘a1[‘,i,’]=’,a1[i]);
end.
procedure print_a2(const Tmas2);
var i:integer;
begin
for i:=0 to m do
writeln(‘a2[‘,j,’]=’,a2[j]);
end.

procedure mas_b(const a1:Tmas1; a2:Tmas2; var b:Tmas3);
var i,j,k,c: integer;
begin
Setlength (b,n+m);
for c:=1 to n do
b[c]:=a1[c];
k:=n;
for j:=1 to n do
begin
for i:=1 to m do
begin
if a1[i]=a2[j] then
break;
end;
if a1[i]<>a2[j] then
begin
k:=k+1;
b[k]:=a2[j];
end;
end;
Setlength(b,k);
end;
procedure print_b(const b:Tmas3);
var j,len: integer;
begin
len:=Length(b);
for j:=0 to len do
writeln (‘b[‘,j,’]=’,b[j]);
end;


var a1:Tmas1;
a2:Tmas2;
b:Tmas3;
begin
writeln(‘massiv a1’);
vvod_a1(a1);
writeln(‘massiv a2’);
vvod_a2(a2);
print_a1(a1);
print_a2(a2);
mas_b(a1,a2,b);
writeln(‘massiv 3:’);
print_b(b);
readln;
end.

[__STDC__]

ну во-первых это скорее паскаль, чем делфи.. во-вторых, что сказано про числа в массиве? Если брать целые числа из диапазона [0;255] то можно так

const
	m = 10;
	n = 5;
var
	a:array[1..m] of byte;
	b:array[1..n] of byte;
	c:array[1..m+n] of byte;
	x:set of byte;
	i,k:byte;
begin
	x := []; k := 1;
	randomize;
	for i:=1 to m do begin
		a[i] := random(10);
		write(a[i]:3);
		x := x + [a[i]];
	end;
	writeln;
	for i:=1 to n do begin
		b[i] := random(10);
		write(b[i]:3);
		x := x + [b[i]];
	end;
	writeln;
	for i:=0 to 9 do
		if (i in x) then begin
			c[k] := i;
			write(c[k]:3);
			inc(k);
		end;
	readln;
end.