Подсчитать количество элементов, для которых выполняется неравенство - PascalABC.NET

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

Здравствуйте! Написал код для следующей задачи: подсчитать количество элементов, для которых выполняется неравенство: А теперь хочу вывести эти условия. То есть: 'Неравенство выполняется для 2 объектов' 'Элементы для которых выполняется неравенство: [4<6<720] [16<17<24]' Подскажите как это сделать?

const
  N = 1000;
var
  a: array[1..N] of integer;
  i, count, j: integer;
  fact: int64;
  f:boolean;
begin
f:=false;
  count := 0;
  for i:=1 to N do
  begin
 a[i]:= Random(1000) -500;
 
 end;
 
 for i:=1 to N do
  begin
    fact := 1;
    for j := 2 to i do
    begin
      fact *= j;
    end;
    
    if a[i] < fact then if a[i] > i * i then
      begin
       f:=true;
        count += 1;
      end;
  end;
  writeln('Неравенство выполняется для ',Count,' объектов'); 
  writeln('Элементы для которых выполняется неравенство: ');
end.

Решение задачи: «Подсчитать количество элементов, для которых выполняется неравенство»

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

begin
  var fact : int64 := 1;
  for var i := 1 to 21 do
    begin
      fact *= i;
      WriteLnFormat('{0}! = {1}', i, fact);
    end;
end.

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

В данном коде:

Создается целочисленная переменная fact типа int64 и инициализируется значением 1.
Запускается цикл for, который выполняется 21 раз, начиная с i = 1 и заканчивая i = 21.
Внутри цикла значение переменной fact умножается на текущее значение i.
Выводится сообщение с текущим значением i и fact, используя функцию WriteLnFormat, которая принимает строку формата и значения для заполнения пробелов в строке.
После завершения цикла выводится сообщение с факториалом числа 21. Список неравенств, которые выполняются в коде:
fact >= 1 и fact < 21 (так как факт умножается на числа от 1 до 21)
i >= 1 и i <= 21 (так как цикл выполняется для чисел от 1 до 21)
fact >= 1 и fact <= 40240 (так как fact вычисляется как произведение чисел от 1 до 21, то есть 123...21, что дает максимальное значение 40240)