Проект "Телефонный справочник"

     readln(Nazv);

     while not Eof(PhoneF) do

     begin

     PhoneR.SurnameS:='';

     PhoneR.NameS:='';

     PhoneR.PhoneS:='';

     PhoneR.AddressS:='';

     read(PhoneF,PhoneR);

     if PhoneR.PhoneS=Nazv then

     begin

     writeln;

     write(PhoneR.SurnameS);

     write(' ',PhoneR.NameS);

     write('',PhoneR.PhoneS);

     write('',PhoneR.AddressS);

     k:=k+1;

     end;

     end;

     Close(PhoneF);

     writeln;

     writeln;

     writeln('Поиск завершен, найдено записей: ',k);

     writeln;

     write('Нажмите любую клавишу...');

     ReadKey;

     end;

     procedure SortSurname;

     var i,j,c: integer;

     tr: Phone;

     begin

     c:=0;

     Assign(PhoneF,'Phone\phone.dat');

     Reset(PhoneF);

     ClrScr;

     writeln('Сортировка по Фамилии:');

     writeln;

     while not Eof(PhoneF) do begin

     inc(c,1);

     read(PhoneF,a[c]);

     end;

     for i:=1 to c do

     for j:=1 to c-1 do begin

     if a[j].SurnameS>a[j+1].SurnameS then begin

      tr:=a[j+1];

      a[j+1]:=a[j];

      a[j]:=tr;

     end;

     end;

     for i:=1 to c do begin

     writeln;

     write(a[i].SurnameS);

     write(' ',a[i].NameS);

     write('',a[i].PhoneS);

     write('',a[i].AddressS);

     end;

     Close(PhoneF);

     writeln;

     writeln;

     write('Нажмите любую клавишу...');

     ReadKey;

     end;

     procedure SortAddress;

     var i,j,c: integer;

     tr: Phone;

     begin

     c:=0;

     Assign(PhoneF,'Phone\phone.dat');

     Reset(PhoneF);

     ClrScr;

     writeln('Сортировка по адресу:');

     writeln;

     while not Eof(PhoneF) do begin

     inc(c,1);

     read(PhoneF,a[c]);

     end;

     for i:=1 to c do

     for j:=1 to c-1 do begin

     if a[j].AddressS>a[j+1].AddressS then begin

      tr:=a[j+1];

      a[j+1]:=a[j];

      a[j]:=tr;

     end;

     end;

     for i:=1 to c do begin

     writeln;

     write(a[i].SurnameS);

     write(' ',a[i].NameS);

     write('',a[i].PhoneS);

     write('',a[i].AddressS);

     end;

     Close(PhoneF);

     writeln;

     writeln;

     write('Нажмите любую клавишу...');

     ReadKey;

     end;

     procedure SortPhone;

     var i,j,c: integer;

     tr: Phone;

     begin

     c:=0;

     Assign(PhoneF,'Phone\phone.dat');

     Reset(PhoneF);

     ClrScr;

     writeln('Сортировка по адресу:');

     writeln;

     while not Eof(PhoneF) do begin

     inc(c,1);

     read(PhoneF,a[c]);

     end;

     for i:=1 to c do

     for j:=1 to c-1 do begin

     if a[j].PhoneS>a[j+1].PhoneS then begin

      tr:=a[j+1];

      a[j+1]:=a[j];

      a[j]:=tr;

     end;

     end;

     for i:=1 to c do begin

     writeln;

     write(a[i].SurnameS);

     write(' ',a[i].NameS);

     write('',a[i].PhoneS);

     write('',a[i].AddressS);

     end;

     Close(PhoneF);

     writeln;

     writeln;

     write('Нажмите любую клавишу...');

     ReadKey;

     end; 

     procedure SortType;

     var b: integer;

     begin

     repeat

      begin

       ClrScr;

       writeln('"Телефонный справочник" - меню сортировки');

       writeln;

       writeln('1. Не сортировать');

       writeln('2. Сортировать по Фамилии');

       writeln('3. Сортировать по адресу');

       writeln('4. Сортировать по номеру телефона');

       writeln('----------------------------');

      writeln('5. Возврат в главное меню');

       writeln;

       write('Выберите пункт меню: ');

       readln(b);

      case b of

      1 : WritePhone;

      2 : SortSurname;

      3 : SortAddress;

      4 : SortPhone;

      end;

      end;

     until b=5;

     end;

     procedure PhoneMenu;

     var b: integer;

     begin

     repeat

      begin

      ClrScr;

       writeln('"Телефонный справочник" - Главное меню');

       writeln;

       writeln('1. Показать все записи');

       writeln('2. Добавить запись');

       writeln('3. Удалить запись');

       writeln('4. Редактировать запись');

       writeln('5. Поиск по Фамилии');

       writeln('6. Поиск по номеру телефона');

       writeln('----------------------------');

      writeln('7. Выход');

      writeln;

      write('Выберите пункт меню: ');

       readln(b);

      case b of

      1 : SortType;

      2 : AddPhone;

      3 : DeletePhone;

      4 : EditPhone;

      5 : FindSurname;

      6 : FindPhone;

      end;

      end;

     until b=7;

     end;

     begin

      ClrScr;

      PhoneMenu;

     end.