Помогите с Паскалем

[clampo]

Доброе всем время суток. Помогите, пожалуйста кто может: Вообщем, надо решить задачу:
Дан файл f, содержащий номера телефонов сотрудников учреждения: фамилия сотрудника, его инициалы и номер телефона. Найти телефон сотрудника по его фамилии и инициалам.
Заранее спасибо.

[Квэнди]

в каком формате храняться данные ?

[clampo]

В Дат - файле. сначала создаем, а потом из него читаем.

[zetrix]

эт тоже самое, как и: какой у тебя сидюк, ответ: CD читает...
или какие девушки вам больше нравятся: брюнетки или блондинки?
ответ: ДА!!!

Тут имелось ввиду, как записываются данные, в виде текста, или записи, т.е. файл типизированный или текстовый?

[Virtson]

> в .DAT файле
по моему, его ответ подразумевал 'типизированный'

[clampo]

Сообщение от Virtson

> в .DAT файле
по моему, его ответ подразумевал 'типизированный'

Да,типизированный.

[AVer]

FName - Имя файла (и адрес к нему) FIO - Фамилия и инициалы нужного сотрудника.

Function PhoneFind(FName,FIO:String):String;
Type TPhones = record
       FIO:String[20];
       Phone:String[7];
       End;
Var Phones: TPhones;
    F:File of TPhones;
    Found:Boolean;
    Rez:String;
Begin
Found:=False;
Assign(F,FName);
ReSet(F);
Repeat
Read(F,Phones);
If Phones.FIO = FIO Then
Begin
Rez:=Phones.Phone;
Found:=True;
End;
Until EoF(F);
If not Found Then
Rez:='Номер не найден';
PhoneFind:=Rez;
End;

[clampo]

Спасибо, попробую.