2 задачи - Получить min (a1 * an, a2 * an-1, … , a[n/2] * a[n/2]+1) и смена мест элементов в матрице

uses crt;
const n= 10;
var a:array[1..n] of real;
    i:integer;
    min:real;
begin
clrscr;
writeln('Vvedite ',n,' elementov massiva:');
for i:=1 to n do
read(a[i]);
readln;
min:=a[1]*a[n];
for i:=2 to n div 2 do
if a[i]*a[n-i+1]<min then min:=a[i]*a[n-i+1];
write('Min=',min:0:2);
readln
end.

program P1;
{$r-} {Отключение контроля границ массива}
type
 Arr = array[0..0] of Real;
var A: ^Arr; {указатель на массив}
var n,i: Integer;
var min,tempmin: Real;
begin
 Write('n: ');
 ReadLn(n);
 if n mod 2 = 0 then
 begin
  GetMem(A, SIZEOF(INTEGER)*10); {Динамическое выделение}
  for i := 0 to n - 1 do {заполняем массив с клавиатуры}
  begin
   Write('A', i + 1, ':  ');
   ReadLn(A^[i]);
  end;
  min := A^[0] * A^[n - 1]; {присваиваем значение, будем сравнивать}
  for i := 0 to n div 2 - 1 do {решаем задачу}
  begin
   tempmin := A^[i] * A^[n - i - 1];
   if tempmin < min then min := tempmin;
  end;
  Writeln('min = ', min);
 end;
 ReadLn;
end