Здравствуйте, roma5310!

Ответ эксперта Voop:
[code lang=pascal h=200]type Likebooks=record
s: string[10]; //Шифр книги
av: string[50]; //Автор
Name: string[50]; //Название книги
Data: string[10]; //Год издания
Ns: string[10]; //Номер стеллажа
Np: string[10]; //Номер полки
end;
var
a: array [1..5] of Likebooks;
i,n,s: integer;
z,x,y:string;
begin
write('Введите кол-во книг: ');
readln(n);
for i:=1 to n do
begin
writeln('Введите шифр книги: ');
readln(a[i].s);
writeln('Введите имя автора: ');
readln(a[i].av);
writeln('Введите название книги: ');
readln(a[i].Name);
writeln('Введите дату: ');
readln(a[i].Data);
writeln('Введите номер стелажа: ');
readln(a[i].Ns);
writeln('Введите номер полки: ');
readln(a[i].Np);
end;
write('Введите автора: ');
s:=0;
readln(Z);
write('Введите год издания: ');
readln(X);
write('Введите имя автора: ');
readln(Y);
for i:=1 to n do
begin
if x=a[i].Data then
s:=s+1;
if z=a[i].av then
//write(a[i].s, '; ');
write(a[i].av, '; ');
write(a[i].Name, '; ');
write(a[i].Data, '; ');
//write(a[i].Ns, '; ');
writeln();
end;
writeln('количество книг введенного года ', s,'.');
write('Список изданий: ');
for i:=1 to n do
begin
if y=a[i].av then
write(a[i].Name, ' ');
end;
end.[/code]
Удачи!

ps:(эксперт молчит)
-доработать файлы можно и в минифоруме, или самостоятельно обратить внимание на типизированные файлы.