Задачи по массивам + возведение действительного числа в действительную степень

[springgirl]

Здравствуйте!

Помогите справится с задачами на Turbo Pascal:

1) Дан одномерный массив целых чисел А(М), М=3N. Поменять местами элементы массива a2n иa2n+1 a2n-1 иa2n+2 и т.д. Для ввода данных и обмена использовать процедуру.
2) Дана матрица действительных чисел A(M,N). Заменить на обратные все элементы тех столбцов, которые начинаются с нечетного отрицательного элемента.

Так же подскажите, пожалуйста, как в Turbo Pascal вычисляется действительное число в действительной степени, в одной из задач встречается такой случай, а в лекциях только sqr(х) и exp(A*ln(B)).
Заранее спасибо.

[Carbon]

function Power(base,pow:extended):extended;
begin
if abs(base)<0.000000001 then Power:=0.0 else
{Вот тут неправильно, но можно считать, что в степень возводится
модуль}
if base<0.0 then Power:=exp(pow*ln(-base)) else
Power:=exp(pow*ln(base))
end;

[RSLoader]

var
  A:array[1..100]of Integer;
  i,N:Integer;
procedure Vvod;
var
  i:Integer;
begin
  write('Vvedite N: ');
  readln(N);
  write('Vvedite massiv: ');
  for i:=1 to 3*N do read(A[i]);
  readln;
end;
procedure Obmen;
var
  i,t:Integer;
begin
  for i:=1 to N do
  begin
    t:=A[2*N+i];
    A[2*N+i]:=A[2*N-i+1];
    A[2*N-i+1]:=t;
  end;
end;
begin
  Vvod;
  Obmen;
  for i:=1 to 3*N do write(A[i],' ');
  readln;
end.

var
  A:array[1..100,1..100]of Real;
  i,j,M,N:Integer;
begin
  Write('Vvedite 4islo strok: ');
  Readln(M);
  Write('Vvedite 4islo stolbcov: ');
  Readln(N);
  for i:=1 to M do
  for j:=1 to N do
  begin
    Write('Vvedite ',j,' element ',i,' stroki: ');
    Readln(A[i,j]);
  end;
  for i:=1 to M do
  begin
    for j:=1 to N do Write(A[i,j]:6:2);
    Writeln;
  end;
  for j:=1 to N do
  if (Frac(A[1,j]/2)=0) and (A[1,j]<0) then
  for i:=1 to M do A[i,j]:=-A[i,j];
  for i:=1 to M do
  begin
    for j:=1 to N do Write(A[i,j]:6:2);
    Writeln;
  end;
  Readln;
end.