Рекурсивная обработка вектора Опции

[Rattter]

Помогите задачку решить...

Условие: Реализуйте функцию Ф преобразования вектора А, состоящего из натуральных чисел (без изменения длины вектора), которая определяется следующим образом:

А, если |A|=1, т.е. длина вектора =1
Ф(А)= ab, если |A|=2, A=ab, a<=b
ba, если |A|=2, A=ab, b<a
Ф(B)Ф©, если |A|>2, A=BC, |B|=|C| или |B|=|C|+1

Упс! Условия неправильно записались. Извиняюсь, пишу еще раз...

Ф(А)= А, если |A|=1, т.е. длина вектора =1;
Ф(А)= ab, если |A|=2, A=ab, a<=b
Ф(A)= ba, если |A|=2, A=ab, b<a
Ф(A)= Ф(B)Ф©, если |A|>2, A=BC, |B|=|C| или |B|=|C|+1

[Rattter]

procedure Recurs(var V: Vector; First,Last,Size: Byte);
var
  Element: Word;
  Center: Byte;
  CurrentSize: Byte;
begin
  CurrentSize:=Last-First+1;
  Center:=CurrentSize div 2+1;
  if CurrentSize>1 then
    if CurrentSize=2 then begin
      if V[First]>V[Last] then begin // Замена на возрастание
        Element:=V[Last];
        V[Last]:=V[First];
        V[First]:=Element;
      end;
    end
    else begin
      Recurs(V,First,Last div 2,Size);
      Recurs(V,Center,Last div 2,Size);
    end;
end;

Вот. Но это все не работает, к сожалению. Я даже не знаю, как правильно написать, чтобы при делении вектора обрабатывалась и левая часть и правая часть.