Fusion deux tableau

Bonjour,
je doit faire un exercice et j'ai besoin d'aide
ecrire un programe pascal qui fusionne deux tableau (t,w) en un seul tableau (v) est éliminé les doublons
voila le code que j'ai ecris

program Project2;


   {$APPTYPE CONSOLE}
uses
  SysUtils;

var
  t:array[0..25] of integer;
  w : array [0..16] of integer;
  tw : array [0..41] of integer;
  v  : array of integer;
  i,j,dt,dw,a,exist: integer;
begin
writeln('entrer la longueur de tableau T');
read(Dt);

for i := 1 to dt
do
read(t[i]);
    writeln('entrer la longueur de tableau W');
readln(Dw);
for i := 1 to dw
do
read(w[i]);
for i := 1 to dt
do
tw[i]:= t[i] ;
for i:= dt+1 to dt+dw
do
tw[i] := w[i-dt];


for i := 1 to dt+dw
  do
    begin
    a:=tw[i];
       for j:= 1 to dt+dw
         do
          begin
           if a = v[j]
            then
            exist:=1
             else
              exist:=0;
          end;
       if exist = 0
          then
          v[i]:=a;
       end;
writeln('le tableau fusionné est:');
for i := 1 to dt+dw
do
write (',',w[i]) ;

readln;readln;

end.

Merci pour votre aide