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

Read(BookFile, Work);

Outputrec; end;

end;end;

procedure FindTel;

begin

clrscr;

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

Assign(BookFile, Name);

Reset(BookFile);

writeln('Введитефамилию');

readln(s);

clrscr;

Seek(BookFile, 0);

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

writeln;

while (not Eof(BookFile)) do begin

With Work do begin

Read(BookFile, Work);

if s=a then begin Outputrec;z:=1;end;

end;

end;

if z=0 then writeln('Всправочникеданныхо ',s,'енет');

end;

begin

ClrScr;

End_Menu:=False; repeat textcolor(7);

Writeln('Выберите вид работы:');

Writeln(' 1- создать новый файл данных');

Writeln(' 2- вывод всей картотеки');