Алгоритм, который выполняет сглаживание массива - PascalABC.NET

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

Сижу на экзамене, была бы очень благодарна за любую помощь!!! Дан целочисленный массив из 200 элементов, в котором записаны значения последовательных результатов измерений. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, который выполняет сглаживание массива: для каждой четвёрки элементов определяет целочисленное среднее арифметическое, и заменяет эти 4 элемента на их среднее. Например, для исходного массива из восьми элементов: 6 0 6 10 11 7 5 9 программа должна вывести 5 5 5 5 8 8 8 8

Решение задачи: «Алгоритм, который выполняет сглаживание массива»

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

const n=200;
var a:array[1..n] of integer;
    i,j,s:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(10001);
  write(a[i],' ');
 end;
writeln;
i:=1;
while i<=n-3 do
 begin
  s:=0;
  for j:=i to i+3 do
  s:=s+a[j];
  for j:=i to i+3 do
  a[j]:=round(s/4);
  i:=i+4;
 end;
writeln('Сглаженнный массив');
for i:=1 to n do
write(a[i],' ');
end.

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

Объявляются константы и переменные: n - размер массива (200), a - массив, i, j, s - вспомогательные переменные.
Инициализируется генератор случайных чисел.
Выводится исходный массив (в цикле заполняются его элементы случайными числами от 1 до 10000 и выводятся на экран через пробел).
Выполняется сглаживание массива (в цикле, начиная с первого элемента, суммируются 4 смежных элемента, затем сумма делится на 4 и результат заменяет каждый из этих элементов).
Выводится сглаженный массив (в цикле выводятся на экран все его элементы через пробел).