Задачка на записи помогите пожааалуйста) Опции

[санчоо]

Даны описания переменных:
type слово=packed array [1..9] of char;
номер телефона=100000..9999999;
знакомый=record
фамилия:слово;
номер:номер телефона
end;
страница=array[1..20] of знакомый;
записная книжка=array['A'..'Z'] of страница;
Считая, что на каждой странице записной книжки указаны фамилии, начинающиеся с одной и той же буквы-индекса этой страницы, описать логическую функцию:
фамилия(ЗП,НТ,Ф), определяющую, есть ли в записной книжке ЗП сведения о знакомом, имеющим телефон НТ, и если есть, присваивающую параметру Ф фамилию этого знакомого.
Знаю она не очень короткая но мне очень помощь нужна... Заранее спасибо=)