Заменить каждый элемент массива на среднее арифметичекое этого элемента и его соседний

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var mass:array of integer;
    mass2:array of extended;
    i,N:integer;
 
begin
  //==============ЗАПОЛНЕНИЕ МАССИВА===============
    Writeln('Vvedite N:');
    Readln(N);
 
    SetLength(mass,N);
    SetLength(mass2,N);
 
    randomize;
    for i:=0 to N-1 do
      mass[i]:=random(50)-25;
  //==============================================
 
  //================ОСНОВНОЙ КОД==================
    mass2[0]:=(mass[0]+mass[1])/2;
    mass2[N-1]:=(mass[N-1]+mass[N-2])/2;
 
    for i:=1 to N-2 do
      mass2[i]:=(mass[i-1]+mass[i]+mass[i+1])/3;
  //===============ВЫВОД МАССИВА НА ЭКРАН==========
    writeln('Ishodniy massiv:');
    for i:=0 to N-1 do
      write(mass[i], ' ');
 
    writeln;
 
    writeln('Konechniy massiv:');
    for i:=0 to N-1 do
      write(floattostr(mass2[i]),' ');
 
    writeln;
  //===============================================
 
  readln;
end.

procedure TForm1.Button1Click(Sender: TObject);
var
  a: array of integer;
  i,n,: Integer;
begin
  Randomize;
 
  n:=StrToInt(Edit1.Text);
  StringGrid1.ColCount:=n;
  StringGrid2.ColCount:=n;
  SetLength(a,n);
  for i:=0 to n-1 do
  begin
    a[i]:=Random(10);
    StringGrid1.Cells[i,0]:=IntToStr(a[i]);
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a: array of integer;
  i,n,: Integer;
begin
  Randomize;
 
  n:=StrToInt(Edit1.Text);
  StringGrid1.ColCount:=n;
  StringGrid2.ColCount:=n;
  SetLength(a,n);
  for i:=0 to n-1 do
  begin
    a[i]:=Random(10);
    StringGrid1.Cells[i,0]:=IntToStr(a[i]);
  end;
  //Среднее арифметическое его и соседей
  for i:=1 to n-2 do
  StringGrid2.Cells[i,0]:=FloatToStr((a[i-1]+a[i]+a[i+1])/3);
  //Среднее арифметическое первого и последнего членов с соседом
  StringGrid2.Cells[0,0]:=FloatToStr((a[0]+a[1])/2);
  StringGrid2.Cells[n-1,0]:=FloatToStr((a[n-1]+a[n-2])/2);
end;