[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.
