Задача про файлы

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

памагите оч нид буду благадарен