В одномерном массиве заменить каждое отрицательное число полусуммой его соседей справа и слева - Pascal

const m = 100;
var a: array[1..m] of real;
    i, n:integer;
    t, ti: real;
 
begin
  repeat
    write('Количество элементов массива в диапазоне 1..', m, ': ');
    readln(n)
  until (n >= 1) and (n <= m);
  writeln('Введите значения элементов массива:');
  for i:=1 to n do
    repeat
      write('a[',i,'] = ');
      readln(a[i]);
      if ((i = 1) or (i = n)) and (a[i] <= 0) then writeln('Крайние элемент должны быть положительны, повторите ввод.')
    until ((i > 1) and (i < n)) or (a[i] > 0);
  writeln('Исходный массив:');
  for i := 1 to n do write(a[i]:10:3);
  writeln;
  t := a[1];
  for i := 2 to n - 1 do
    begin
      ti := a[i];
      if a[i] < 0 then a[i] := (t + a[i + 1]) / 2;
      t := ti
    end;
  writeln('Результат:');
  for i := 1 to n do write(a[i]:10:3);
  readln
end.