Нужна помощь(решение задачи)среднее арифметическое... Опции

[VDK23RUS]

Из заданного вектора A(3N) получите B(N), очередная которого равна среднему арифметическому очередной тройки компонент вектора.

Вот что я знаю из задачи
for i := 1 to n do
b[i] := (a[i*3-2]+a[i*3-1]+a[i*3])/3;
Можете дописать всё остальное. Эта задача оказалась для мя сложной

[klem4]

const
  n = 3;

var
  A: Array [1..3*n] of Single = (1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0);
  B: Array [1..n] of Single;
  i: Integer;

begin
  i := 3;
  while (i <= 3 * n) do begin
    b[i div 3] := (a[i] + a[i - 1] + a[i - 2]) / 3;
    inc(i, 3);
  end;

  for i := 1 to n do writeln(b[i]:5:2);
end.