Еще 1 задача на записи Опции

[Shkipper]

Ребят можете помоч решить хоть какие нибудь задачи из этих

2.
Создать массив — телефонный справочник, хранящий информацию о 15 абонентах сотовой сети. Каждый элемент справочника
хранит следующую информацию об абоненте: ФИО, номер телефона, адрес регистрации, состояние баланса.
А) Упорядочить массив по адресу абонентов. Составить одно-
мерный массив из сведений об абонентах, которые проживают
на заданной улице и чья фамилия начинается с заданной буквы.

[Lapp]

На Форуме есть громадное количество примеров решения подобных задач. Используй поиск.
А если есть затруднения с конкретной (твоей) реализацией - показывай, поможем.

[Shkipper]

Вот чето не допрет теперь как сделать букву А

uses
  crt;
type
  telephone = record
    fam,name,otch,num: string[30];
  end;
var
  i,k,n: integer;
  p: telephone;
  st: string;
  a: array [1..15] of telephone;
begin
  clrscr;
  write('wwedite kol-wo nomerow: ');
  readln(n);
  for i:= 1 to n do
  begin
    clrscr;
    writeln('*** Zapis No ',i,' ***');
    write('wwedite familiyu: ');
    readln(p.fam);
    write('wwedite imya: ');
    readln(p.name);
    write('wwedite otchestwo: ');
    readln(p.otch);
    write('wwedite telefon: ');
    readln(p.num);
    a[i]:=p;
  end;
  clrscr;
  writeln('*** Wiberite parametr dlya poiska: ');
  writeln('1 - familia');
  writeln('2 - imya');
  writeln('3 - otchestwo');
  writeln('4 - telefon');
  writeln('5 - EXIT');
  write('Wash wibor: ');
  readln(k);
  case k of
    1: begin
         clrscr;
         write('Wwedite familiyu: ');
         readln(st);
         writeln('***********************');
         for i:= 1 to n do
           if a[i].fam=st then
             writeln(a[i].num,' ',a[i].fam,' ',a[i].name,' ',a[i].otch);
         readkey;
       end;
    2: begin
         clrscr;
         write('Wwedite imya: ');
         readln(st);
         writeln('***********************');
         for i:= 1 to n do
           if a[i].name=st then
             writeln(a[i].num,' ',a[i].fam,' ',a[i].name,' ',a[i].otch);
         readkey;
       end;
    3: begin
         clrscr;
         write('Wwedite otchestwo: ');
         readln(st);
         writeln('***********************');
         for i:= 1 to n do
           if a[i].otch=st then
             writeln(a[i].num,' ',a[i].fam,' ',a[i].name,' ',a[i].otch);
         readkey;
       end;
    4: begin
         clrscr;
         write('Wwedite nomer: ');
         readln(st);
         writeln('***********************');
         for i:= 1 to n do
           if a[i].num=st then
             writeln(a[i].num,' ',a[i].fam,' ',a[i].name,' ',a[i].otch);
         readkey;
       end;
    5:
  end;
end.