Даю 80 балов. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-56, 47] (размер произвольный). Найти произведение элементов с четными номерами, которые превосходят некоторое число t. Пожалуйста с объяснениями!!!

Срочно по возможности фотку с экрана компьютера!!

var

 A: array [1..10] of Integer; // объявление массива  границы можно поменять, программа это поймет

 i, t, P: Integer;            // объявление переменных

 IsFound: Boolean;            // объявление булевой переменной

begin

   Randomize;                       // инициализация датчика случайных чисел

   for i := Low (A) to High (A) do  // цикл по всем элементам массива

     A [i] := Random (104) - 56;    // сохранение в элементе массива случайного числа со значением от -56 до 47

   Writeln ('Случайный массив:');

   for i := Low (A) to High (A) do  // цикл вывода номеров и значений массива

     WriteLn (IntToStr (i) + ': ' + IntToStr (A [i]) + ' ');

   Writeln;

   Write ('Введите число t: ');

   ReadLn (t);                      // ввод числа t  с клавиатуры

   P := 1;                          // Начальное значение для подсчета произведения элементов

   IsFound := False;                // установка начального значения флага, выбран ли хотя бы один элемент массива

   Writeln;

   Write ('Четные элементы, значение которых больше ' + IntToStr (t) + ':');

   for i := Low (A) to High (A) do begin     // цикл просмотра всех элементов массива

     if i mod 2 = 0 then begin               // проверка номера элемента на четность

       if A [i] > t then begin               // элемент массива превосходит число t?

         IsFound := True;                    // установить флаг: найден элемент массива, удовлетворяющий условиям выбора

         P := P * A [i];                     // добавить элемент к произведению

         Write (IntToStr (A [i]) + ' ');

       end;

     end;

   end;

   Writeln;

   if IsFound then                           // если найден хотя бы один элемент, выводим произведение

     Writeln ('Произведение четных элементов, значение которых больше ' + IntToStr (t) + ' = ' + IntToStr (P))

   else                                      // иначе сообщаем, что не найдено

     WriteLn ('Четных элементов, значение которых больше ' + IntToStr (t) + ' не найдено.');

end;

// ------ конец кода программы ---------

объяснение даны в коде в виде комментариев. скриншот с экрана во вложении