Cho mình xin đoạn code tìm số lượng các phần tử trong dãy A có mặt trong dãy B( Mảng 1 chiều ạ)

program bai_giai;
uses crt;
var A,B:array[1..10000] of integer;
    n,m,i,j,d:integer;
begin
    clrscr;
    write('Nhap so luong phan tu day A: ');  readln(n);
    write('Nhap day A: ');
    for i:=1 to n do read(A[i]);
    write('Nhap so luong phan tu day B: ');  readln(m);
    write('Nhap day B: ');
    for i:=1 to m do read(B[i]);
    for i:=1 to n do
        begin
            d:=0;
            for j:=1 to m do
                if A[i]=B[j] then
                    begin
                        d:=1;
                        break;
                    end;
            if d=1 then write(A[i],' ');   d:=0;
        end;
    readln;  readln;
end.