Опишите, используя структуру записи, книги(автор,название,год издания).Составьте программу вывода на экран упорядоченного списка книг(по фамилии автор

Program mas;
Uses crt;
Const n=5;
Var a: array[1..n,1..n] of shortint; j,i: byte;
Begin
Clrscr;
Randomize;
Writeln('Исходный массив: ');
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(19)-9;
Write(a[i,j]:3);
end;
Writeln;
end;
Writeln('Результат: ');
For i:=1 to n-1 do
begin
For j:=1 to n do
begin
a[i,j]:=a[i,j]-a[n,j];
Write(a[i,j]:3);
end;
Writeln;
end;
End.

Program book;
Uses crt;
Const k=5;
Type a=record
f: string;
n: string;
g: word;
end;
Var b: array[1..k] of a; i,j: byte; c: string;
Begin
Clrscr;
For i:=1 to k do
begin
Write('Введите фамилию автора: ');
Readln(b[i].f);
Write('Введите название книги: ');
Readln(b[i].n);
Write('Введите год издания: ');
Readln(b[i].g);
end;
For i:=1 to k-1 do
For j:=i+1 to k do
If b[i].f>b[j].f then
begin
c:=b[i].f;
b[i].f:=b[j].f;
b[j].f:=c;
end;
For i:=1 to k do
Writeln(b[i].f,'  -  ',b[i].n,'  -  ',b[i].g);
End.