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

[Гелла]

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

[klem4]

Не правльно ты организовала ввод данных ... я бы сделал наприер так :

uses crt;
const
   max_users = 20;

type

   TNode = record
      name,number : string;
   end;

   TBook = array [1..max_users] of TNode;

procedure Input(var b : TBook; const n : byte);
var
   i : byte;
begin
   for i := 1 to n do
    with b[i] do begin
       writeln('Пользователь №', i);
       write('Имя : '); readln(name);
       write('Телефон : '); readln(number);
       writeln;
    end;
end;

var
  book : TBook;
  count : byte;
begin
   clrscr;
   write('Количество записей : '); readln(count);
   Input(book, count);
   readln;
end.

Мне кажется у тебя не очень с пониманием организации самой структуры записи ... по этому советую почитать материал из FAQ : FAQ : Записи