Контрольная работа: Алгоритмический язык Pascal. Программа "Телефонный справочник"

Write(BookFile, Work); end;

end;

procedure Create_Supplementing_library; Созданиеновогофайла

var

Ind, Count:integer; begin Name:='A:\phone.txt';

Assign(BookFile, Name); Открыть новый файл для записи

Rewrite(BookFile);

Writeln('Создание записей файла ', Name);

Write('Введите количество телефонов на станции: ');

Readln(Count);

for Ind:=1 to count do

AddRec;

Writeln('Создание файла данных библиотеки завершена');

Writeln('Файлданныхимеет ', FileSize(BookFile), ' записи'); close(BookFile);

end;

procedure OutputRec;

begin

With Work do

writeln(A,' ',Y,' ',T);

end;

procedure OutputAllRec;

begin

clrscr;

Name:='A:\phone.txt';

Assign(BookFile, Name);

Reset(BookFile); clrscr; Seek(BookFile, 0);

Writeln(' Фамилия Телефон');

writeln;

while (not Eof(BookFile)) do begin