Написать функцию, определяющую, является ли среднее арифметическое элементов массива целым числом - Turbo Pascal

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

Написать функцию, определяющую является ли среднее арифметическое элементов одномерного массива А(К), к<=50 целым числом.

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

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

function IsIntAverage(const a: array of integer): boolean;
var s, i: longint;
begin
  s := a[0];
  for i := 1 to high(a) do s := s + a[i];
  IsIntAverage := s mod (high(a) + 1) = 0
end;

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

Задана функция с именем IsIntAverage
Функция принимает аргумент типа массив целых чисел (array of integer)
В функции используются две переменные: s и i типа longint
Значение переменной s инициализируется значением первого элемента массива a
В цикле for перебираются все элементы массива a, начиная со второго
Значение переменной s обновляется суммой значения переменной s и текущего элемента массива a
После цикла for проверяется условие: s mod (high(a) + 1) = 0
Если условие выполняется, то значение переменной s является средним арифметическим, которое является целым числом
Функция возвращает значение true, если условие выполняется, и false в противном случае