Файлы

[ScareCroW12]

Привет всем! Помогите пожалуйста с задачей на файлы. Есть сам созданный файл - вроде бы работает. А вот еще дополнительные задания не получаются.
Заранее спасибо!

Создать типизированный файл sotr.dat, содержащий информацию о сотрудниках:
- табельный номер;
- ФИО;
- должность;
- дата рождения: день, месяц, год;
- пол;
а) обеспечить ввод данных в файл, проверяя корректность вводимых значений;
табельный номер – в диапазоне от 1 до 999
табельный номер не должен повторяться
дата рождения должна быть корректной.
Ошибочные данные записывать в другой файл – файл ошибок, выводя при этом сообщение – предупреждение;
б) упорядочить файл по табельному номеру;
в) обеспечить просмотр содержимого файла в табличной форме.

Создание файла:

program faili;
uses crt;
type sotrud=record
   FIO: string;
   pol: string[10];
   tab: integer;
   dolzh: string;
   dr: string;
   end;
var f: file of sotrud;
    otv: char;
    a: sotrud;
begin
clrscr;
assign (f,'sotr.dat');
rewrite (f);
repeat
writeln ('vvedite FIO');
readln (a.FIO);
writeln ('vvedite pol');
readln (a.pol);
writeln ('vvedite tabelniy nomer');
readln (a.tab);
writeln ('vvedite dolzhnost');
readln (a.dolzh);
writeln ('vvedite datu rozhdenia');
readln (a.dr);
write (f,a);
writeln ('Prodolzhenie - lubaia knopka, vixod-esc');
otv:= readkey;
until ord(otv)=27;
close (f);
clrscr;
reset (f);
repeat
read (f,a);
writeln (a.FIO:15, a.pol:15,a.tab:6,a.dolzh:10,a.dr:15);
until eof (f);
repeat until keypressed;
end.

[ScareCroW12]

а) обеспечить ввод данных в файл, проверяя корректность вводимых значений;
табельный номер – в диапазоне от 1 до 999
табельный номер не должен повторяться
дата рождения должна быть корректной.
Ошибочные данные записывать в другой файл – файл ошибок, выводя при этом сообщение – предупреждение;
б) упорядочить файл по табельному номеру;
в) обеспечить просмотр содержимого файла в табличной форме.