Даны два массива а и b, получить массив С содержащий все элементы из a и b без повторений (Паскаль)

type t_mas= array [1..100] of integer;
var
 a,b,c: t_mas;
 i,j,n,m:integer;
 
Begin
 readln(n);
 write('Введите массив А: ');
 for i:=1 to n do
 read(a[i]);
 
 readln(m);
 write('Введите массив В : ');
 for i:= 1 to n do
 read(b[i]);
 
 for i:= 1 to n do
  c[i]:=a[i];
 
 i:=1; j:=1;
 while i<=m do
 begin
  while (j<=n) and (b[i]<>c[j]) do
   j:=j+1;
  if j=n then 
   begin
   n:=n+1;
   c[n]:=b[i];
   end;
  i:=i+1;
  j:=1;
 end;
  
 write('Вывод массива С: ');
 for i:= 1 to n do
  write(c[i]);
  end.