Найти индекс минимального элемента массива. - Pascal ABC

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

Писал решение задачки: Массив задан датчиком случайных чисел от -15 до 15. Найти индекс минимального элемента. При попытке запуска части кода для проверки правильности заполнения массива выдает ошибку 215 - Арифметическое переполнение. Не пойму, что не так!? Вот фрагмент кода:

uses Crt;
 
var
   a: array[1..100] of Integer;
   i,n: integer;
begin
     ClrScr;
     writeln('Enter the length of array: ');
     readln(n);
     ClrScr;
     randomize;
     for i:=1 to n do
     begin
          a[i]:=random(30) - 15;
          write(a[i]:3);
     end;
 
     ReadKey;
end.

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

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

a[i]:=-15+random(30);

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

В данном коде происходит следующее:

Создается переменная a типа массив с длиной 20 элементов.
Каждый элемент массива a инициализируется значением -15 + random(30), то есть случайным числом от -15 до 24 включительно.
Далее, выполняется цикл, который проходит по всем элементам массива a и сравнивает их между собой.
В каждой итерации цикла, значение текущего элемента сравнивается со значением следующего элемента.
Если текущее значение меньше следующего, то они меняются местами.
После завершения цикла, в массиве a будет находиться минимальное значение из всех его элементов.
Затем, это минимальное значение присваивается переменной min_index.
В конце кода, значение переменной min_index выводится на экран.