Tìm cặp số còn lại khác nhau

bờm là chủ hàng giày. hôm nọ check kho có 2n chiếc giày.
n chiếc phải có k.thước a1,a2,…,an
n chiếc trái có b1, b2,…,bn
biết hai chiếc thành một cặp khi ai = bj;
tìm bao nhiêu chiếc giày cần đổi (không bằng) để bán hết 2n giày
ta có hai dãy số là số đo của n cặp giầy , cụ thể :
n : 3
a(chiếc bên phải) :1 3 1
b(chiếc bên trái) : 3 2 1

em code pascal trong tn ý , trong code thì biến dem đếm số giầy giống nhau

program doi_giay;
  uses crt;
  var i,n,dem : integer;
      a,b,c : array[1..100] of integer;
      f :text;
  procedure output();
    begin
         assign(f,'shoes.out');
         rewrite(f);
         writeln(f,dem);
         close(f);
    end;
  procedure check();
   var j,k : integer;
    begin
         k:=0;
         for i:=1 to n do begin
             for j:=1 to n do
                 if (a[i] = b[j]) then begin
                    c[i] := i;
                    c[i+1] := j;
                    end;
         end;
         output();
    end;
  procedure input();
    begin
         assign(f,'shoes.inp');
         reset(f);
         readln(f,n);
         for i:=1 to n do read(f,a[i]);
         for i:=1 to n do read(f,b[i]);
         close(f);
         check();
    end;
  begin
       // Chuong trinh chinh :V
       input();
  end.

ai có ý tưởng thuật toán gì hay hay chia sẽ xem