Pascal/Turbo Pascal - elementos comunes entre dos vectores

uses crt;

var

    a:array[1..6] of byte = (3,9,2,7,10,14);

    b:array[1..6] of byte  = (9,1,3,22,7,10);

    c:array[1..6] of integer;

    conta,i,j:byte;

begin

    clrscr;

    conta:=1;

    for i:=1 to 6 do begin

        for j:=1 to 6 do begin

            if a[i] = b[j] then begin

                c[i]:=a[i];

                inc(conta);

            end;

        end;

    end;

        for i:=1 to conta do begin

            writeln(c[i]);

        end;

end.