Паскаль, практическая работа по работе с файламм, тут начало работы, само задание и условия, задание 16

вот образец
{1. Описать запись с именем Zodiac, содержащую следующие поля:
? фамилия, имя;
? знак Зодиака;
? день рождения (массив из трех чисел).
Написать программу, выполняющую следующие действия:
? ввод данных с клавиатуры в массив, состоящий из восьми
элементов типа Zodiac;
записи должны быть упорядочены по датам дней рождения.
? вывод на экран информации о человеке, чья фамилия введена
с клавиа¬туры; если такого нет, вывести на экран
соответствующее сообщение;
? запись массива в файл под заданным с клавиатуры именем. }
program Zod;
uses crt;
const n=3;
type zodiak=record
fio: string[10];
name : string[10];
Birthday : array [1..3] of integer;
znak :string[8];
end;
var
f:file of zodiak;
i,j,k:integer;
di,dj:longint; //data ggggmmdd
w:zodiak;
Pr: array[1..N] of zodiak;
namfile:string;

procedure sozd; {*******создание ********}
begin
clrscr;
writeln('СОЗДАНИЕ МАССИВА ЗАПМСЕЙ');
writeln('*************************');
for i := 1 to N do begin
writeln('Ввести ',i,' - ю запись');
with pr[i] do begin
write('Введите Фамилию: ');
readln(fio);
write('Введите имя: ');
readln(name);
write('Введите знак зодиака: ');
readln(znak);
writeln('Введите число рождения:');
readln(birthday[1]);
writeln('Введите месяц рождения:');
readln(birthday[2]);
writeln('Введите год рождения:');
readln(birthday[3]);
end;
end;
writeln('Создание закончено');
если подойдет, могу всю программу на адрес выслать