Одномерный массив

[Mr-FredY]

Помогите с решением.
Дан одномерный целочисленный массив размерности 10. Нужно четные элементы заменить средним арифметическим двух соседних элементов (предшествующего и последующего). Первый и последний элементы оставить без изменений.

[VIK_aka_TOR]

var
a: array [1..10] of real;
i: integer;
begin
     writeln('Изначальный массив:');
    for i:=1 to 10 do
    begin
        a[i]:=random(20);
        writeln('a[',i,']=',a[i]);
    end;
    for i:=1 to 4 do
    a[2*i]:=  (a[2*i-1] + a[2*i+1])/2;
    
    Writeln('Измененный массив:');
    for i:=1 to 10 do
    writeln('a[',i,']=',a[i]);
end.