Паскаль. Динамический массив

[KORT]

Привет!!! Вопрос в том, что надо доделать программку, а именно из имеющегося массива вывести в новый массив элементы с номерами 1,2,4,8,16 ...(принцип понятен, т.е. каждое => число увеличивается в двое) и найти кол-во элементов меньше 0,25 в этом новом массиве..
я сделал прогу, но что не получается образовать новый массив...

 
Uses Crt;
Var
M:Array[1..20] of Real;
i,A:Integer;
Begin
ClrScr;
Randomize;
A:=0;
For i:=1 to 20 do
Begin
M[i]:=Random(3+i)/(5+i);
Writeln('M[',i,']=',M[i]:2:2);
End;
Begin
For i:=1 to 20 do
Begin
If (M[i]<0.25) then A:=A+1;
End;
End;
Writeln;
Writeln('Kolichestvo chisel menshe 0,25=',A);
Readkey;
End.

[Tayfun]

 
...............
const n=20;
var
new_a:array[1..n] of real;
p,i,t:integer;
...............
t:=1;p:=1;
for i:=1 to n do
if t=i then begin t:=t*2; new_a[p]:=a[i];  p:=p+1; end;
................
for i:=1 to p do
write(new_a[i],' ');
................

Примерно так!

[KORT]

Сенкс за примерчик, немного его изменил, т.е. доработал...программка летает..