type
book = record
fio: string[255];
izd: string[255];
god: integer;
nazv: string[255];
end;
var
f: file of book;
a: array[1..100] of book;
i, n, j: integer;
z: book;
begin
writeln('кол-во книг');
readln(n);
assign(f, 'books.dat');
rewrite(f);
for i := 1 to n do
begin
with z do
begin
writeln('Автор');
readln(fio);
writeln('название');
readln(nazv);
writeln('издательство');
readln(izd);
writeln('год');
readln(god);
end;
write(f, z);
end;
close(f);
reset(f);
j := 0;
for i := 0 to filesize(f) - 1 do
begin
seek(f, i);
read(f, z);
inc(j);
a[j] := z;
end;
close(f);
for i := n downto 2 do
for j := 2 to i do
if a[j].god < a[j - 1].god then
begin
z := a[j];
a[j] := a[j - 1];
a[j - 1] := z;
end;
for i := 1 to n do
if a[i].nazv = 'Программирование' then
writeln(a[i].fio, ' ', a[i].god, ' ', a[i].izd, ' ', a[i].nazv);
end.