Динамическо выделение памяти

[Seferus]

Найти сумму кубов всех положительных элементов массива A={a[i]}. Использовать динамическое выделение памяти.

Uses CRT;
var
i,n:integer;
a:array[1..20] of integer;
sum:longint;
begin
Clrscr;
randomize;
write('Введите кол-во элементов: ');
readln(n);
sum:=0;
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
if a[i]>0 then
begin
sum:=sum+sqr(a[i]);
end;
end;
writeln;
writeln('Sum:=',sum);
readkey
end.

как использовать выделение памяти