Описать логическую функцию, проверяющую является ли симметричной часть массива - Free Pascal

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

Описать логическую функцию, проверяющую является ли симметричной часть массива, начинающегося i-м и кончающаяся j-м его элементом. Нужна любая помощь

Решение задачи: «Описать логическую функцию, проверяющую является ли симметричной часть массива»

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

function IsSymRange(const a: array of Integer; i, j: Integer): Boolean;
begin
  IsSymRange:=False;
  while i<j do begin
    if a[i]<>a[j] then Exit;
    Inc(i); Dec(j);
  end;
  IsSymRange:=True;
end;

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

Заголовок функции: IsSymRange
Тип возвращаемого значения: Boolean
Параметры функции:
- a: массив целых чисел
- i: начальный индекс
- j: конечный индекс
Инициализация переменной IsSymRange значением False
Цикл, выполняющийся до тех пор, пока i меньше j
Внутри цикла сравниваются элементы массива a с индексами i и j
Если элементы не равны, то цикл прерывается с помощью оператора Exit
Если цикл завершен, то переменной IsSymRange присваивается значение True
Конец функции