Описать функцию Smooth(A,N), заменяющую элементы массива на их среднее арифметическое со своими соседями

const nmax=15;
type mas=array[1..nmax] of real;
 
function Smooth(var a:mas;n:byte) of real;
var i:byte;
    x,y,z:real;
begin
x:=a[1];
y:=a[2];
write(a[1]:5:2);
for i:=2 to n-1 do
 begin
  z:=a[i+1];
  a[i]:=(x+y+z)/3;
  write(a[i]:5:2);
  x:=y;
  y:=z;
 end;
writeln(a[n]:5:2);
end; 
 
var a:mas;
    n,i:integer;
begin
randomize;
repeat
write('Размерность массива от 3 до ',nmax,' n=');
read(n);
until n in [3..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=9*random;
  write(a[i]:5:2);
 end;
writeln;
writeln('Работа процедуры сглаживание');
for i:=1 to 5 do
Smooth(a,n);
end.

const nMax = 100;
 
procedure Smooth(var a:array of Real;n:Integer);
begin
  var b:=a;for var i:=1 to n-2 do a[i]:=Round((b[i-1]+b[i]+b[i+1])/3,2);
end;
 
procedure _Print(a : array of Real):=a.Select(x->Format('{0,5:f2}', x)).Println;
 
begin
  var n:Integer;
  repeat
    n:=ReadInteger($'Размерность массива от 3 до ' + nMax + ' n =');
    if Not n.InRange(3,nMax) then WriteLn('Не правильно! Повторите ввод.');
  until n.InRange(3,nMax);
  var a:=ArrRandomReal(n,0,10).Select(x->Round(x,2)).ToArray;
  Write('Исходный массив: ');_Print(a);
  for var s := 1 to 3 do
    begin
      Smooth(a,n);
      Write($'{s,3} сглаживание: ');_Print(a);
    end;
end.