Найти произведение максимального и минимального элементов массива - Turbo Pascal (29332)

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

Дан массив A (a1, a2, …, aN). Найти произведение максимального и минимального элементов массива A. Напечатать значение этого произве- дения и номера максимального и минимального элементов. Помогите пожалуйста с масивами этими) я в них ничего не понимаю. Напишите программу. Буду очень признателен вам)

Решение задачи: «Найти произведение максимального и минимального элементов массива»

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

var a:array[1..100] of integer;
    n,i,mx,mn,p:integer;
begin
randomize;
repeat
write('Размер массива от 2 до 100 n=');
readln(n);
until n in [2..100];
writeln('Массив А');
for i:=1 to n do
 begin
  a[i]:=10+random(90);
  write(a[i]:4);
  if i mod 20=0 then writeln;
 end;
writeln;
mn:=a[1];
mx:=a[1];
for i:=2 to n do
 begin
  if a[i]<mn then mn:=a[i];
  if a[i]>mx then mx:=a[i];
 end;
p:=mn*mx;
writeln('Минимум=',mn);
writeln('Максимум=',mx);
writeln('Их произведение=',p)
end.

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

Создается переменная a типа array[1..100] of integer;, которая будет представлять собой массив из 100 целых чисел.
Создаются переменные n, i, mx, mn, p типа integer;, которые будут использоваться для хранения размера массива, минимального и максимального элементов, а также для вычисления их произведения.
Функция randomize; используется для инициализации генератора случайных чисел.
В цикле repeat-until запрашивается размер массива от пользователя, и пока это значение находится в диапазоне от 2 до 100, выводится сообщение о размере массива и его элементах.
В цикле for вычисляется произведение минимального и максимального элементов массива, обновляется значение минимального элемента, если текущий элемент меньше предыдущего, и обновляется значение максимального элемента, если текущий элемент больше предыдущего.
По окончании цикла выводятся значения минимального, максимального и их произведение.