В массиве A хранится возраст N юношей, а в массиве B

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!


begin
  var n:= ReadInteger('N =');
  var a:= ReadArrInteger('Введите возраст юношей -gt;',n);
  var b:= ReadArrInteger('Введите возраст девушек -gt;',n);
  var bal:= new integer[120];dec(n);
  for var i:= 0 to n do
    inc(bal[a[i]]);
  var ans := 0;
  for var i:= 0 to n do
    if (bal[b[i]] gt; 0)then
    begin
      dec(bal[b[i]]);
      inc(ans);
    end;              
    Writeln(ans);
end.