В массиве A хранится возраст N юношей, а в массиве B – возраст N девушек. Какое максимальное количество пар из них можно составить так, чтобы в каждой паре были юноша и девушка одного возраста

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!begin  var n:= ReadInteger('N =');  var a:= ReadArrInteger('Введите возраст юношей ->',n);  var b:= ReadArrInteger('Введите возраст девушек ->',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]] > 0)then     begin      dec(bal[b[i]]);      inc(ans);    end;                  Writeln(ans);end.