Пусть дан упорядоченный список названий книг.

var i, j, n, k: byte;
slovo: string;
a: array [1..100] of string;
begin
write ('количество книг n=');
readln (n);
{записываем названия книг N штук, название наугад из 5 символов}
for i:=1 to n do
for j:=1 to 5 do
if j=1 then a[i]:=a[i]+chr(65 + random(26))
else a[i]:=a[i]+chr(97 + random(26));
{cортировка книг по алфавиту}
for i:=1 to n do
for j:=1 to n do
if a[i] < a[j] then
begin
a[n+1]:=a[i];
a[i]:=a[j];
a[j]:=a[n+1];
end;
{вывод книг по алфавиту}
for i:=1 to n do writeln (a[i]);
{write ('введите название книги ='); readln (slovo);} {ручной ввод книги}
{задаем название новой книги, название книги наугад из 5 символов}
for j:=1 to 5 do
if j=1 then slovo:=slovo+chr(65 + random(26))
else slovo:=slovo+chr(97 + random(26));
writeln;
{вывод названия новой книги}
writeln(slovo);
writeln;
{увеличиваем количество книг на 1 шт. }
n:=n+1;
{записываем последней книгой новую добавленную}
a[n]:=slovo;
{новая cортировка книг по алфавиту с учетом добавленной книги}
for i:=1 to n do
for j:=1 to n do
if a[i] < a[j] then
begin
a[n+1]:=a[i];
a[i]:=a[j];
a[j]:=a[n+1];
end;
{вывод книг по алфавиту}
for i:=1 to n do writeln (a[i]);
end.

сформируй второй массив и перепиши туда из первого до новой книги, потом все остальное, если есть свои наметки - пришли