Нужна помошь ПАСКАЛЬ

[SinfulA]

Привет мне нужен описание входных данных, описание исходных данных, описание подпрограмм, описание выполнения программного кода (процедуры, главная программа,что она деляет,) Заранее спасибо.
код

program lib;


type book=record
author: string;
name: string;
year: integer
end ;

var
request : char;
an : string;
arr : array[1..20] of book;
top : integer;
i : integer;


procedure addBook;
begin
writeln('Добавление книги.');

writeln('Введите имя автора:');
readln(arr[top].author);

writeln('Введите название:');
readln(arr[top].name);

writeln('Введите год издания:');
readln(arr[top].year);
writeln('Книга добавлена. Теперь в библиотеке ', top, ' книг.');
top := top + 1

end;


procedure searchBooks(ana : string);
var i : integer;
begin
writeln('Название | Год');

for i := 1 to top do
if arr[i].author = ana then
writeln (arr[i].name, ' | ', arr[i].year);
end;


procedure search;
begin
writeln('Поиск книг.');
writeln('Введите автора:');
readln(an);
searchBooks(an);
end;

begin

top := 1;
writeln('Вводите команды. a для добавления. f для поиска. q для выхода.');
repeat
begin

readln (request);
if request = 'a' then
addBook()
else if request = 'f' then
search()
else if not (request = 'q') then
writeln('Не существует команды ', request);
end

until (request = 'q')
end.

[Zis67]

program lib;


type book=record
author: string;
name: string;
year: integer
end ;

var
request : char;
an : string;
arr : array[1..20] of book;
top : integer;
i : integer;


procedure addBook;// поцедура добавления книги
begin
writeln('Добавление книги.');//.выводит текст Добавление книги

writeln('Введите имя автора:');//выводит текст Введите имя автора
readln(arr[top].author);//пользователь вводит имя автора, оно добавляется в массив (мах. 20)

writeln('Введите название:');
readln(arr[top].name);

writeln('Введите год издания:');
readln(arr[top].year);
writeln('Книга добавлена. Теперь в библиотеке ', top, ' книг.');
top := top + 1

end;


procedure searchBooks(ana : string);//процедера поиска книги
var i : integer;//порядковый номер книги
begin
writeln('Название | Год');

for i := 1 to top do
if arr[i].author = ana then
writeln (arr[i].name, ' | ', arr[i].year);//выдает из массива имя | год
end;


procedure search;//процедера поиска книги
begin
writeln('Поиск книг.');
writeln('Введите автора:');
readln(an);
searchBooks(an);//обращается к предыдущей процедуре
end;

begin

top := 1;
writeln('Вводите команды. a для добавления. f для поиска. q для выхода.');
repeat
begin

readln (request);
if request = 'a' then//если переменная =а пользователь добавляет книгу
addBook()
else if request = 'f' then//если f- поиск
search()
else if not (request = 'q') then//если переменная не равна q, выдает:
writeln('Не существует команды ', request);
end

until (request = 'q')
end.