Найти среднее арифметическое значений элементов массива, не принадлежащих интервалу - Pascal ABC

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

Прошу пожалуйста помочь срочно,очень надо,заранее большое спасибо. Решить надо всего пару задачек на одномерные массивы. 3. Ввести массив целых чисел Х(n). Найти среднее арифметическое значений элементов массива, не принадлежащих интервалу [-2;2]. Если среднее арифметическое значение>2, заменить значения первого и последнего элементов на 1, в ином случае – на 0. Массив распечатать. 4. Ввести массив А(n). Найти сумму положительных элементов массива, исключая при этом те элементы, которые кратны трём. Полученной суммой заменить элементы 2-ой половины массива. Массив отпечатать.

Решение задачи: «Найти среднее арифметическое значений элементов массива, не принадлежащих интервалу»

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

var
  X: array[1..100] of integer;
  i, n, k: integer;
  S: real;
  
begin
  write('n = ');
  readln(n);
  S := 0;
  k := 0;
  for i := 1 to n do begin
    x[i] := random(11) - 5;
    write(x[i]:3);
    if (x[i] < -2) or (x[i] > 2) then begin
      S := S + x[i]; //увеличиваем сумму
      inc(k) //увеличиваем количество
    end
  end;
  writeln;
  if k > 0 then begin
    S := S / k;
    writeln('Среднее арифметическое: ', S:0:3);
    if S > 2 then begin
      x[1] := 1;
      x[n] := 1
    end
    else begin
      x[1] := 0;
      x[n] := 0 
    end;
    writeln;
    for i := 1 to n do
      write(x[i]:3)
  end
  else writeln('Элементов, не принадлежащих интервалу [-2, 2] не существует')
end.

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

Создается переменная X типа array[1..100] of integer, которая представляет собой массив из 100 целых чисел.
Задаются три переменные: i, n и k типа integer. Переменная i используется для итерации по элементам массива, переменная n - для чтения количества элементов в массиве, а переменная k - для подсчета количества элементов, не принадлежащих интервалу.
Инициализируется переменная S типом real, которая будет использоваться для хранения суммы всех элементов массива.
Инициализируется переменная S типом integer, которая будет использоваться для хранения количества элементов массива.
Запускается цикл for, который выполняется n раз (согласно чтению переменной n). Внутри цикла каждый элемент массива X[i] генерируется случайным числом в диапазоне от 11 до 100 и присваивается переменной x[i].
Выводится значение каждого элемента массива x[i] с помощью функции write.
Проверяется условие: если значение элемента x[i] меньше -2 или больше 2, то увеличивается сумма S и количество k.
После завершения цикла выводится значение переменной S, которое является средним арифметическим всех элементов массива.
Если количество k больше 0, то вычисляется среднее арифметическое и выводится на экран.
Если среднее арифметическое S больше 2, то выводится сообщение о том, что элементы x[1] и x[n] не принадлежат интервалу.
Если среднее арифметическое S меньше 2, то выводится сообщение о том, что все элементы массива принадлежат интервалу [-2, 2].
Выводится сообщение о том, что элементов, не принадлежащих интервалу [-2, 2], не существует.