Реализация вспомогательной функции

Задано сначала число N (1≤N≤100), а затем N пар чисел. Первое число каждой пары - натуральное, не превышающее 30000. Второе число каждой пары - 0 или 1.

Требуется найти и вывести номер пары, в которой второе число равно 0, а из всех таких пар ту, в которой первое число минимально (если таких пар несколько, выведите любую из них). Если пар, у которых второе число равно 0, нет выведите -1.

Обязательно выполнение "особенностей реализации", описанных ниже!

 
 Пример ввода
 4
 25 0
 3 0
 2 1
 5 0
 
 Пример вывода
 2
 

Особенности реализации

Для того, чтобы дальше было удобнее использовать то, что вы напишете в этой задаче, настоятельно рекомендуется реализовать решение следующим образом. Данные Вам массивы назвать b и c (с - это массив 0 и 1).

Кроме того, в основной программе нужно сделать только ввод и вывод данных, решение же оформить в виде функции, результатом которой будет номер искомого элемента или -1, если его нет.

Таким образом, основная программа будет выглядеть примерно так (эту заготовку можно скачать по этой сслыке или взять на диске J: файл zag-a.pas):

var b:array[1..100] of integer;
  c:array[1..100] of byte;
  n:integer;
  i:integer;
            
function find:integer;
  begin
{ ... 
  find:= ???  }
  end;
                
begin
read(n);
for i:=1 to n do
  read(b[i],c[i]);
  writeln(find);
end.