Записная книжка, ?!?!? Опции

[Гелла]

У меня такая задача:составить телефонную киигу,так чтоб выполнялись все её функци..т.е если ты вводишь фамилию то она выдает тебе телефон, и наоборот...но предварительно нужно ввести записи:т.е. фамилии и телефоны...число страниц в книге равно кол-ву букв в алфавите..я вроде как немного разобралась...но не знаю как построить программу..
Я думаю нужны три подпрограммы, первая-вводит новую запись с фамилиями и телефонами...вторая-выдает телефон по фамилии, а третья по введенному телефону находит фамилию..всё это наверное оформляется в виде процедур...подскажите мне..я не уверена, что правильно всё распределила и не знаю как это реализовать..наведите меня на умную мысль пожалста...

[Гелла]

Ничего не получается...составила только первую процедуру...как мне дальше быть?

program zapisnaya_kniga;
uses crt;
type note=record
fam:string[16];
tel:string[8];
end;
var
list:array[1..20] of note;
book:array['A'..'Z'] of string;
procedure vvodinf(f:fam;i:integer; t:tel)
begin
for i:=1 to 20 do
writeln('vvedite familiyu');
readln(f.note);
writeln('vvedite telefon');
readln(t.note);
if i:=true then i:=i+1;
end;