Получить "сглаженные" значения a1,., a50, заменив в исходной последовательности все члены, кроме первого и последнего

uses crt;
const n=50;
var a:array[1..n] of real;
    xp,xs:real;
    i:byte;
begin
clrscr;
randomize;
writeln('Ishodnyj massiv:');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:5:1);
 end;
writeln;
writeln;
writeln('Sglazennyj massiv:');
write(a[1]:5:1);
for i:=2 to n-1 do
 begin
  xp:=a[i-1];
  xs:=a[i+1];
  a[i]:=(xp+a[i]+xs)/3;
  write(a[i]:5:1);
 end;
write(a[n]:5:1);
readln
end.

program irino_1;
uses crt;
var a:array[1..50] of real;
    i:integer;
 
Begin clrscr;
randomize;
writeln('‡*Ї®«*Ґ*ЁҐ ¬*ббЁў* б«гз*©*л¬Ё зЁб«*¬Ё');
for i:=1 to 50 do a[i]:=random(9)+1;
for i:=1 to 50 do write(' ',a[i]:2:1);
 
for i:=2 to 49 do
                 begin
                 a[i]:=(a[i-1]+a[i]+a[i+1])/3;
                 end;
writeln(' ');
writeln('***************************************');
writeln('?§Ґ*)**л© ¬*ббЁў');
for i:=1 to 50 do write(' ',a[i]:5:3);
readln;
end.