Помогите написать программу ТИП РЕКОРД Опции

[Killer1995]

УСЛОВИЕ:

type		sl =array[1..10] of char;
			nomtel =1000000..9999999;
			znak=record
				bam:ssl;
				 nom:nomtel;
			 end;
			str=array[1..20] of znak;
			zapkn=array[a..z] of  str;

Считая, что на каждой странице записной книжки указаны фамилии, начинающиеся с буквы - индекса этой страницы, написать программу, которая будет определять, есть ли в записной книжке ЗП данные о знакомом, который имеет телефон с номером НТ, если есть, то напечатать фамилию этого знакомого. Введите несколько фамилий в записную книжку, выполните программу и введите результат.