Програма для пошуку информації в файлі

[Fmk]

задача
Создать файл содержащий информацию для астролога.Структура записи:
Фамилия знак зодиака день рождения (массив из 3 чисел). Количество записей произвольная
{Написать програму которая выконуё следующие действия:
1-Выводит информацию о лицах родившихся под знаком название которого вели с клавиатуры
2-Выводит список лиц, которые родились в месяц. Номер которого вели с клавиатуры
3-В случае отсутствия записей выдать соответствующее сообщение.}-Вот ета мне нужна очень! ети три пункта я немагу зделать памагите!!

Програма уменя есть мне нужна тока 3 пункта вот програма:
program Astrologiya;
USES CRT;
const N=3;
type Astrolog=record
surname:string;
Znakzodiaky:string;
DN:array [1..N] of integer;
end;
var f:file of Astrolog;
buf:Astrolog;
vidp:char;
i:byte;
begin
Assign(f,'D:\Astrolog.dat');
Rewrite(f);
vidp:='y';
while (vidp='y') do
begin
writeln('Enter surname');
readln(buf.surname);
writeln('Enter Znakzodiaky');
readln (buf.Znakzodiaky);
for i:=1 to N do
begin
writeln('Enter DN');
readln(buf.DN[i]);
end;
write(f,buf);
writeln('Do you want to continue this? for contineud enter "yes".');
readln(vidp);
end;
seek(f,0);
while not eof(f) do
begin
read(f,buf);
for i:=1 to N do
begin
write(buf.surname:20,buf.znakzodiak y:20,' ',buf.dn[i]);
end;
end;
readln;
Close(f);
end.
памагите оч нид буду благадарен