Задача на рекурсию

[Rusl92]

И еще один вопрос:

"Рекурсивное программирование"
Найти средне-арифметическое для n-элементного вектора вещ. чисел можно на основе сведения: найти среднее для элементов вектора, стоящих на нечетных местах, и среднее для элементов вектора, стоящих на четных местах, а потом получить общее среднее, как среднее двух найденных средних.
Составить рекурсивную функцию на основе приведенного сведения и программу решения задачи на основе этой рекурсивной функции. Значение n считать степенью двойки.

на экзамене сегодня - не хватило времени сделать
да и с рекурсией маловато я работал

не могли бы вы написать код с разбором
заранее спасибо

[Mad_Cat]

function frst(var a: array of integer; i: integer): real;
  begin
    if pred(i) > high(a) then frst := 0
    else frst := frst(a, i + 1) + a[i - 1] / n;
  end;