Определить день, в котрый было больше всего запрошено книг - Pascal

Формулировка задачи:

Дан файл,содержащий данные о выдаче книг в библиотеке. Он содержит дату выдачи,фамилию автора и тематику книги. Определить: a)день, в котрый было больше всего запрошено книг; б) наиболее и наименее запрашиваемых авторов; в) наиболее и наименее популярные тематики.

Решение задачи: «Определить день, в котрый было больше всего запрошено книг»

Листинг программы

const
  author: array [1..5] of string = ('Shakespeare','Pushkin','Ivanov','Petrov','Sidorov');
  Topic: array [1..3] of string = ('war','love','programming');
...
 
procedure vvod;
begin
textcolor(7);
write('kol-vo n=');
readln(n);
for i:=1 to n do with kng[i] do
    begin
    writeln('kniga N ',i);
    write('den = ');
    //readln(den);
    den:= Random(30)+1;
    write('mes = ');
    //readln(mes);
    mes:= Random(12)+1;
    write('autor = ');
    //readln(autor);
    autor:= author[Random(5)+1];
    write('tema = ');
    //readln(tema);
    tema:= topic[Random(3)+1];
    writeln;
    end;
end;

Объяснение кода листинга программы

В данном коде объявлены несколько переменных и массивов.

Переменная n - используется для считывания количества книг, которые пользователь хочет ввести.
Массив kng - используется для хранения информации о книгах. Каждая книга представлена в виде строки, хранящейся в отдельном элементе массива.
Переменные i, den, mes, autor, tema - используются для считывания и хранения информации о каждой книге.
Массив author - содержит имена авторов книг.
Массив Topic - содержит темы книг. В процедуре vvod происходит следующее:
Выводится сообщение kol-vo n= и ожидается ввод числа n от пользователя.
Для каждого числа i от 1 до n выполняется следующий блок кода:
- Выводится сообщение kniga N,i, гдеN` - это номер книги.
- Считывается число den (день).
- Выводится сообщение mes = и считывается число mes (мес).
- Выводится сообщение autor = и считывается имя автора autor из массива author.
- Выводится сообщение tema = и считывается тема tema из массива Topic.
- Выводится символ новой строки.
После завершения цикла выводится символ новой строки. Таким образом, данный код позволяет пользователю вводить информацию о книгах, а затем выводит эту информацию в удобном для чтения формате.