Из массива чисел В(12) получить массив А следующим образом: каждое число, начиная со второго, заменить суммой или произведением предыдущего и последующего (большим значением) — Pascal(Паскаль)

program PascalGuru;

var
  A, B: array [1 .. 12] of real; { объявление переменных массивов }
  i: integer; { переменная для цикла }
  summa, pr: real; { переменные суммы и произведения }
  zamena: real; { переменная "временный контейнер" замен }

begin
  writeln('Vvedite massiv B iz 12 elementov:');
  for i := 1 to 12 do
  begin
    write('B[', i, ']=');
    readln(B[i]);
  end; { Ввод массива B с клавиатуры }

  writeln('Vot vvedennyy vami massiv B: ');
  for i := 1 to 12 do
    write(B[i]:6:2, '  '); { Вывод введенного массива B на экран }
  writeln;
  writeln;
  { *************************************************************** }

  if B[1] > 0 then
    A[1] := B[1]
  else
    A[1] := 5; { присваиваем значение 1-го эл-та массиву "A" }

  for i := 2 to 11 do { запускаем цикл для заполнения массива "A" }
  begin
    summa := B[i - 1] + B[i + 1]; { считаем сумму пред. и последующего эл-та }
    pr := B[i - 1] * B[i + 1];
    { считаем произведение пред. и последующего эл-та }
    if summa > pr then
      zamena := summa
    else
      zamena := pr; { определаем что из них больше }
    A[i] := zamena; { MAX число записываем в массив A }
  end;

  writeln('____Vot polucennyi massiv A: ');
  for i := 1 to 11 do
    write(A[i]:6:2, '  '); { Выводим массив А на экран }

  readln;

end.