Динамическая память Опции

[Anton]

Всем привет!

Народ, реально зашиваюсь, ничего не успеваю... до утра надо!!!

Если реально, можете помочь написать програмку на динамическую память, вот условие:
3. Даны натуральное число n, действительные числа a1, ..., a2n. Получить:
а) (a1 - a2n)(a3 - a2n-2)(a5 - a2n-4) … (a2n-1 - a2); б) a1a2n + a2a2n-1 + … + anan+1;
в) min(a1 + an+1, a2 + an+2, …, an + a2n); г) max (min(a1, a2n), min(a2, a2n-1), …, min(an, an+1)).

Мдя, условие немного искажено, но это не важно.
Вот мои наброски, а задать условие не получается, туплю что-то:

Код

uses crt;
type  floatArr = array[1 .. maxint div sizeof(integer)] of integer;
var i,n:integer;
  pArr: ^floatArr;
  p:integer;

BEGIN
 ClrScr;
 getmem(pArr, sizeof(integer));
 Write('Vvedite n='); Readln(n);
 writeln('Ishodniy massiv:');
 for i:=1 to 2*n do
    begin
  pArr^[i]:=random(10);
  write(pArr^[i],' ');
    end;
 writeln;


readkey;
END.

Вот, помогите, плиз!