CУБД с использованием файлов

Привет, у меня возникла проблема при напизании запросов к субд, очень прошу написать их к этом заданию:
В базе данных каталога библиотеки хранятся сведения о книгах. Одна запись базы данных содержит сведения: шифр, Ф.И.О. автора, название, год издания, количество экземпляров. В СУБД предусмотреть следующие запросы:
- поиск по шифру книги;
- поиск наиболее ранней книги заданного автора;
- книг какого автора в библиотеке больше всего;
- список всех изданий выпущенных позднее указанного года;


Вот прога без запросов, если дописать запросы думаю должна работать! очень надеюсь на вашу помощь))

type
TRec = record;
Author: string[15];
Title: string[25];
Year: integer;
Kolvo: integer;
shifr: string[30]
end;
TFileRecs = file of TRec;

var f:TFileRecs; {файл с БД}
filePath:string; {путь к файлу с БД}
toDelFile:boolean; {вспомогательная переменная}


{--------------------------------------------------------------}
{процедура формирования одной записи}

procedure addOneRecord(var Rec:TRec);
const Otstup = 20;
begin
WriteLn;
with Rec do
begin
write('Введите название книги: ':Otstup);
readLn(Title);
write('Введите автора книги ':Otstup);
readLn(Author);
write('Введите количество ':Otstup);
readLn(Kolvo);
write('Введите год издания: ':Otstup);
readLn(Year);
write('введите шифр книги: ':Otstup);
readln(shifr);
end;
writeLn;
end;
{--------------------------------------------------------------}
{Процедура ввода базы}
procedure InputBase(var f: TFileRecs);
var i:byte;
caseKey:char;
Rec:TRec;
begin
writeLn;
writeLn('Вводите элементы базы данных');
i:=fileSize(f);
repeat
inc(i);
writeLn('Вводите ',i,'-й элемент');
addOneRecord(Rec);
write(f,Rec);
writeLn('Для прекращения ввода нажмите "0"');
readLn(caseKey);
until caseKey='0';
end;


{--------------------------------------------------------------}
{процедура вывода заголовка БД}
procedure Zagolovok (const Otstup,Nf:integer);
var i:integer;
begin
for i:=1 to Nf do
write('=');
writeLn;
write('название |':Otstup);
write('автор |':Otstup);
write('Количество |':Otstup);
write('год издания |':Otstup);
write('шифр |':Otstup);
writeLn;
for i:=1 to Nf do
write('=');
writeLn;
end;
{--------------------------------------------------------------}
{процедура выводящая полоску из знаков "="}
procedure polosa(const Otstup,Nf:integer);
var i:integer;
begin
for i:=1 to Nf do
write('=');
writeLn;
end;


{--------------------------------------------------------------}
{процедура вывода одной записи на экран}
procedure outOneRecord(const Rec:TRec;const i:integer);
const Otstup1 = 18;
begin
with Rec do
begin
write(title:Otstup1, ' |');
write(author:Otstup1, ' |');
write(year:Otstup1, ' |');
write(kolvo:Otstup1, ' |');
write(shifr:Otstup1, ' |');
writeLn;
end;
end;

{--------------------------------------------------------------}
{процедура вывода БД на экран}
procedure OutBase(var f:TFileRecs);
var Rec:TRec;
i:integer;
begin
writeln('База данных':80);
Zagolovok(20,120);
reset(f);
while not EOF(f) do
begin
i:=filePos(f)+1;
read(f,Rec);
outOneRecord(Rec,i);
end;
polosa(20,120);
end;

{--------------------------------------------------------------}
{процедура удаления одной записи с номером i}
procedure DelRec(var f:TFileRecs; const i:integer);
var Rec:TRec;
begin
seek(f,i);
while not EOF(f) do
begin
read(f,Rec);
seek(f,filepos(f)-2);
write(f,Rec);
seek(f,filepos(f)+1);
end;
seek(f,fileSize(f)-1);
truncate(f);
seek(f,i-1);
end;
{--------------------------------------------------------------}
{процедура корректировки одной записи}
procedure ChangeRec(var f:TFileRecs; const i:integer);
var Rec:TRec;
begin
writeLn('Давайте изменим эту запись полностью:');
addOneRecord(Rec);
seek(f,i-1);
write(f,Rec);
seek(f,i-1);
end;

{--------------------------------------------------------------}
{Процедура удаления и корректировки записей}

procedure DelCorrBase(f:TFileRecs);
var Rec:TRec;
i:integer;
caseKey:char;
begin
repeat
OutBase(f);
writeLn('Выберите номер записи, для редактирования');
writeLn('"0" - возврат в предыдущее меню');
readln(i);
while (i>filesize(f)) or (i<0) do
begin
writeLn('нет такого номера!');
writeLn('Выберите номер записи, для редактирования');
writeLn('"0" - возврат в предыдущее меню');
readln(i);
end;
if i<>0 then
begin
seek(f,i-1);
read(f,Rec);
Zagolovok(20,120);
outOneRecord(Rec,i);
polosa(20,120);
writeLn('Для удаления записи введите "9"');
writeLn('Для корректировки введите "1"');
writeLn('Для возврата в предыдущее меню введите "0"');
writeLn('Для продолжения редактирования БД введите иной символ');
writeLn('Ваш выбор:');
readLn(caseKey);
case caseKey of
'9': DelRec(f,i);
'1': ChangeRec(f,i);
end;
end
else
caseKey:='0';
until caseKey='0';
end;



{ЗАПРОСЫ????????}











{подменю запросов к БД}
procedure SubMenuRequest(var f:TFileRecs);
var keyCase:char;
begin
repeat
writeLn;
writeLn('Выберите запрос к БД');
writeLn('1 - поиск наиболее ранней книги заданного автора');
writeLn('2 - книг какого автора в библиотеке больше всего');
writeLn('3 - список всех изданий выпущенных позднее указанного года');
writeln('4 - поиск по шифру книги');
writeLn('5 - назад в главное меню');
readLn(keyCase);
case keyCase of
'1': request(f,1);
'2': request(f,2);
'3': request(f,3);
'4': request(f,4);
else
if keyCase<>'5' then
writeLn('Выберите, пожалуйста, корректный пункт меню');
end;
until keyCase='5';
writeLn;
end;



{--------------------------------------------------------------}
{Добавление записи к БД}
procedure AddRecord(var f:TFileRecs);
var Rec:TRec;
caseKey:char;
begin
seek(f,filesize(f));
repeat
addOneRecord(Rec);
write(f,Rec);
writeLn('для добавления ещё одной записи введите "1"');
readLn(caseKey);
until caseKey <> '1';
end;





{--------------------------------------------------------------}
{процедура выводящая главное меню программы}
function MainMenuTitle:char;
var PunktOfMenu: char;
begin
writeLn;
writeLn('Выберите нужное действие:');
writeLn('1 - Вывод БД');
writeLn('2 - Корректировка и удаление записей');
writeLn('3 - Подменю запросов к БД');
writeLn('4 - Добавление новых элементов в БД');
writeLn('5 - Выход');
write('Ваш выбор:');
readLn(PunktOfMenu);
MainMenuTitle := PunktOfMenu;
end;

{--------------------------------------------------------------}
{Процедура вывода запроса пункта главного меню}
procedure MainMenuCase(var f:TFileRecs);
var PunktOfMenu:char;
begin
repeat
PunktOfMenu:=MainMenuTitle;
case PunktOfMenu of
'1': OutBase(f);
'2': DelCorrBase(f);
'3': SubMenuRequest(f);
'4': AddRecord(f);
'5':;
else
writeLn('нет такого пункта меню, введите ещё раз');
end;{case}
until PunktOfMenu='5';
end;

{--------------------------------------------------------------}
{процедура открытия нового файла}
function OpenNewfile(var filePath:string):boolean;
var flag:boolean;
KeyCase:char;
begin
repeat
flag:=TRUE;
writeLn('введите имя файла с которым будем работать');
readLn(filePath);
if FileExists(filePath) then
begin
writeLn('Файл с таким именем ("',filePath,'") уже существует,');
writeLn('Выберите действие:');
writeLn('0 - если Вы его хотите перезаписать');
writeLn('1 - если Вы его хотите открыть');
writeLn('другая клавиша - ввод иного имени');
flag:=TRUE;
assign(f,filePath);
readLn(KeyCase);
case KeyCase of
'1': OpenNewfile:=FALSE;
'0': OpenNewfile:=TRUE;
else
flag:=FALSE;
end; {case}
end
else
OpenNewfile:=TRUE;
until flag;
end;

{======================================= =======================}
{главная программа}
begin
cls;
toDelFile:=OpenNewfile(filePath);
assign(f,filePath);
if toDelFile then
begin
rewrite(f);
InputBase(f);
end
else
reset(f);
MainMenuCase(f);
end.

0