[lmikle]

Думаю, препод хотел от тебя немного другого:

Код:

var
  I, b : Integer;
begin
...
  for i := Low(A) To Low(A)+2 Do
  begin
    b := A[i];
    A[i] := A[Length(A)-I];
    A[Length(A)-I] := b;
  end;

Как-то так.