Заданы целочисленные массивы Х(n) и Y(m),каждый из которых содержит неповторяющиеся элементы.Объединить массивы Х и Y,обеспечив неповторяемость элементов нового массива — Pascal(Паскаль)

uses crt;
const max=100;
type mas=array[1..max] of integer;
procedure Vvod(var a:mas; var b:byte;c:char);
var i,j,k:byte;
begin
repeat
write('Размер массива ',c,'=');
readln(b);
until b in [1..max];
writeln('Исходный массив ',c);
a[1]:=random(max);
for i:=1 to b do
 begin
  repeat
  a[i]:=random(max);
  k:=0;
  for j:=1 to i-1 do
  if a[i]=a[j] then k:=1;
  until k=0;
  write(a[i],' ');
 end;
writeln;
writeln;
end;
var x,y:mas;
    n,m,i,j,k:byte;
begin
clrscr;
randomize;
Vvod(x,n,'X');
Vvod(y,m,'Y');
for i:=1 to m do
 begin
  k:=0;
  for j:=1 to n do
  if y[i]=x[j] then k:=1;
  if k=0 then
   begin
    n:=n+1;
    x[n]:=y[i];
   end;
 end;
writeln('Объединение массивов:');
for i:=1 to n do
write(x[i],' ');
readln
end.