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

[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

[volvo]

Это тебе Алена передала:

const
  sz = 7;
type
  vector = array[1 .. sz] of integer;
const
  a: vector = (2, 1, 3, 4, 6, 5, 7);

procedure Recurs(var V: Vector; First, Last: Byte);
var
  Element: Word;
  size, Center: Byte;
begin
  size := (last - first + 1);
  if size = 1 then exit;

  Center:= first + (size div 2);
  if Size <= 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,center);
    Recurs(V,Center,Last);
  end;

end;

var i: integer;
begin
  recurs(a, 1, sz);
  for i := 1 to sz do write(a[i]:4);
  writeln;
end.