Delphi - aiuto programma delphi

buonasera ho fatto questo programma che dice di fare l'intersezione tra due vettori e di eliminare (se ci sono) i numeri che si ripetono...non riesco a fare quest'ultimo punto per favore aiutatemi!serve per domani...grazie a chi risponde
esempio 1 vet=1 3 5 3
2 vet=3 4 3 2
vet intersezione =3(solo una volta non due)

type pvet =array [1..10] of integer;
       svet=array [1..10] of integer;
       cvet=array[1..10] of integer;
  var a:pvet;
      s:pvet;
      l,x:cvet;
      r,f,j,i,c:integer;
begin
 randomize;
 r:=1;
       for j:=1 to 10 do
        begin
        a[j]:=random(20)+1;
        write(a[j],' ');
        end;
  writeln;
                  for i:=1 to 10 do
                    begin
                    s[i]:=random(10)+1;
                    write(s[i],' ');
                    end;
 writeln;
                           for i:=1 to 10 do
                             begin
                               for j:=1 to 10 do
                                if a[j]=s[i] then
                                  begin
                                  c:=c+1;
                                  x[i]:=s[i];
                                  end;
                              end;
 writeln;
                                           for i:=1 to c do
                                           write(x[i],' ');
                                 
readln

crossposting vietato:
pierotofy.it/pages/extras/forum/…=