Найти рейтинг книг в книжном магазине

program Project1;
uses
  CRT;
const
  maxelem = 100;
var
  a: array [1..maxelem] of integer; { Переменная для  хранения массива.}
  b: array [1..2,1..maxelem] of integer; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i,j,k,h: integer; { Вспомогательные переменные для организации циклов.}
  tmp: integer; { Промежуточная переменная для организации сортировки}
  flag: boolean; {Логическая переменная для организации отбора элементов}
begin
  write('Введите значение максимального количества рассматриваемых книг: ');
  Readln(n);
  for i:= 1 to n do
    begin
     write('Введите значение ',i,' индекса книги: ');
     Readln(a[i]);
    end;
  writeln('Исходный массив с индексами книг: ');
  textcolor(10);
  for i:= 1 to n do
    begin
      write(a[i]:6);
      if i mod 10 = 0 then
        writeln;
    end;
  k:= 0;
  for i:= 1 to n do   { Цикл для перебора элементов в исходном массиве}
    begin
      flag:= false;
      for j:= 1 to k do {Цикл для перебора элементов во втором массиве}
        if a[i] = b[1,j] then  {Условие проверки наличия значений уже прошедших отбор }
          flag:= true;   {Флаг, который показывает, что такие значения уже найдены и занесены во второй массив}
      if not flag then
        begin
          inc(k);
          b[1,k]:= a[i];    {Пополнение второго массива элементами, значения которых еще не встречались}
        end;
    end;
 
  for i:= 1 to k do  { Подсчет количества повторений индексов книг}
    for j:= 1 to n do
      if b[1,i] = a[j] then
         b[2,i]:= b[2,i] + 1;
 
  for i:= 1 to k-1 do      { Упорядочивание частоты повторений по убыванию}
    for j:= 1 to k-i do
      if b[2,j] < b[2,j+1] then
        begin
          tmp:= b[2,j];      {Обмен значениями элементов для 2 строки}
          b[2,j]:= b[2,j+1];
          b[2,j+1]:= tmp;
          tmp:= b[1,j];      {Такой же обмен значениями элементов для 1 строки, чтобы не перепутать соответствия}
          b[1,j]:= b[1,j+1];
          b[1,j+1]:= tmp;
        end;
  writeln;
  textcolor(7);
  writeln('Массив с индексами книг и частотой их повторения: ');
  writeln('Зеленым цветом  отмечены индексы книг, желтым цветом - количество встречающихся индексов. ');
  for h:= 1 to (k div 10) + 1 do   {Повторение печати массива разбитого на целые десятки}
    begin
      for i:= 1 to 2 do
        begin
          if i = 1 then       {Изменение цвета для разных типов данных массива}
            textcolor(10)
          else
            textcolor(14);
          if h <= k div 10 then
            for j:= (h-1)*10+1 to (h-1)*10+10 do
              write(b[i,j]:6) {Вывод элементов массива, которые входят в десятки}
          else
            for j:= (h-1)*10+1 to (h-1)*10+ k mod 10 do
              write(b[i,j]:6); {Вывод элементов массива, которые остаются после целых десятков}
          writeln;
        end;
      writeln;
    end;
 
 
  Readln;
end.

const
  m = 1000;
 
type
  book = record index, rating: integer end;
 
var
  a: array[1..m] of book;
  i, j, k, n, x: integer;
  t: book;
 
begin
  n := 0;
  writeln('Введите индексы книг через пробел и нажмите <Enter>:');
  while not eoln do
    begin
      read(x);
      i := 1;
      while (i <= n) and (a[i].index <> x) do inc(i);
      if i <= n
        then inc(a[i].rating)
        else begin
          inc(n);
          a[n].index := x
        end
    end;
  readln;
  for i := 1 to n - 1 do
    begin
      k := i;
      for j := i + 1 to n do if a[k].rating < a[j].rating then k := j;
      if k > i
        then begin
          t := a[i];
          a[i] := a[k];
          a[k] := t
        end
    end;
  if n > 0
    then begin
      writeln('Рейтинг книг в порядке убывания:');
      for i := 1 to n do write(a[i].index, ' ')
    end
    else writeln('Не введено ни одного индекса');
  readln
end.

const
  m = 1000;
 
type 
  book = record index, rating: integer end;
 
var
  a: array[1..m] of book;
  i, j, k, n, x: integer;
  t: book;
 
begin
  writeln('Введите номера книг через пробел и нажмите <Enter>:');
  while not eoln do
    begin
      read(x);
      inc(a[x].rating)
    end;
  n := 0;
  while a[n + 1].rating > 0 do
    begin
      inc(n);
      a[n].index := n;
    end;
  readln;
  for i := 1 to n - 1 do
    begin
      k := i;
      for j := i + 1 to n do if a[k].rating < a[j].rating then k := j;
      if k > i
        then begin
          t := a[i];
          a[i] := a[k];
          a[k] := t
        end
    end;
  if n > 0
    then begin
      writeln('Рейтинг книг в порядке убывания:');
      for i := 1 to n do write(a[i].index, ' ')
    end
    else writeln('Номера книг введены неверно');
  readln
end.

      inc(a[x].rating);
      a[x].index := x