Используя программу ранжирования, найти произведение наименьшего и 2-х наибольших элементов массива - Pascal ABC

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

Используя программу ранжирования, найти произведение наименьшего и 2-х наибольших элементов массива: Т= (-2,1,3,-4,2,0,1,-3,5) Вот мой код:

Const n=9;
      T:array[1..n] of integer=(-2,1,3,-4,2,0,1,-3,5);
Var i,j,temp:integer;
Begin
    For i:=1 to n do
     write(T[i]:3);
    writeln;
    For i:=n downto 2 do
     For j:=2 to i do
      if T[j]<T[j-1] then
      Begin
        temp:=T[j];
        T[j]:=T[j-1];
        T[j-1]:=temp;
      End;
    For i:=1 to n do
     write(T[i]:3);
    writeln;
    writeln('Произведение наименьшего и 2-х наибольших элементов массива = ',T[1]*T[n-1]*T[n]);
    readln;
End.

Компилятор ругается на невозможность присвоить константу, не понимаю в чем ошибка( помогите пожалуйста

Решение задачи: «Используя программу ранжирования, найти произведение наименьшего и 2-х наибольших элементов массива»

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

Const n=9;
type mas=array[1..n] of integer;
const T:mas=(-2,1,3,-4,2,0,1,-3,5);
Var T1:mas;
    i,j,temp:integer;
Begin
    T1:=T;
    For i:=1 to n do
    write(T[i]:3);
    writeln;
    For i:=n downto 2 do
    For j:=2 to i do
    if T1[j]<T1[j-1] then
      Begin
        temp:=T1[j];
        T1[j]:=T1[j-1];
        T1[j-1]:=temp;
      End;
    For i:=1 to n do
     write(T1[i]:3);
    writeln;
    writeln('Произведение наименьшего и 2-х наибольших элементов массива = ',T1[1]*T1[n-1]*T1[n]);
    readln;
End.

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

В данном коде объявлен массив типа mas, который содержит 9 элементов. Затем создается переменная T, которая также является массивом типа mas и содержит значения -2, 1, 3, -4, 2, 0, 1, -3 и 5. Далее создается переменная T1, которая копирует массив T. Затем происходит вывод элементов массива T1 на экран. Для этого используется цикл for, который проходит по каждому элементу массива от 1 до n (включительно). Внутри цикла выводится значение текущего элемента массива T1 с помощью функции write. После вывода каждого элемента на экран происходит переход на новую строку с помощью функции writeln. Далее начинается внутренний цикл, который проходит по всем элементам массива T1 от i=n до 2 (включительно). Внутри этого цикла происходит сравнение текущего элемента с предыдущим. Если текущий элемент меньше предыдущего, то происходит обмен их значениями с помощью временной переменной temp. После завершения внутреннего цикла происходит повторный вывод элементов массива T1 на экран. Для этого снова используется цикл for, который проходит по каждому элементу массива от 1 до n (включительно). Внутри цикла выводится значение текущего элемента массива T1 с помощью функции write. После вывода каждого элемента на экран происходит переход на новую строку с помощью функции writeln. В конце кода выводится сообщение о произведении наименьшего и двух наибольших элементов массива T1 с помощью функции writeln. Для получения произведения используются операции умножения T1[1], T1[n-1] и T1[n]. После выполнения всех действий программа завершается с помощью функции readln.