Поиск по первым двум цифрам числа

[IPI]

Вобщем задача такая:
На междугородней телефонной станции имеется информация об оплате следующего вида: номер телефона, сумма за междугородния переговоры(МТР), сумма внесенная абонентом.
Определить общую сумму за МТР для абонентов одной АТС по заданным двум первым цыфрам номера, например 55. вывести сведения об абонентах заданной атс в таблицу.
Что понятно:
Есть АТС значит одна, в ней хранятся телефоны (т.е. массив где каждый элемент ето телефонный номер), с созданием и заполнением массива проблемы не встрянет.
ЧТо НЕ понятно:как осуществить поиск по первым двум цифрам в номере?
Заранее спасибо)

[Stilet]

Сразу вопрос: Номер в строке? Или как число?
Если как число - переводи в строку процедурой Str
а потом, допустим эти номера в неком массиве

for i:=1 to НомерПоследнегоЭлементаМассива do
 if copy(Номера[i],1,2)='45' then
  Нашли номер начинающийся на 45 в таблице Номера

Идея понятна?