Курсовая работа: Телефонный справочник

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;

Процедура SortType – подменю сортировки. Данная процедура при помощи операторов Writeln и Readln создает подменю сортировки, для удобства работы с программой конечного пользователя. В меню присутствуют следующие пункты:

· 1. Не сортировать – вызывает процедуру WritePhone;

· 2. Сортировать по Фамилии – вызывает процедуру SortSurname;

· 3. Сортировать по адресу – вызывает процедуру SortAddress;

· 4. Сортировать по номеру телефона – вызывает процедуру SortPhone;

· 5. Возврат в главное меню – возвращается к главному меню;

procedure SortType;

var b: integer;

begin

repeat

begin

ClrScr;