Дан целочисленный двумерный массив размерности n на m. Вывести его элементы индексы которых является степенями двойки Желательно подробно...

Var A:array[1..100] of integer;

   i,n:integer;

Begin

   write('Введите n: ');readln(n);

   For i:=1 to n do

    Begin

     A[i]:=random(11)-5;

     write(A[i]:3);

    End;

   writeln;

   writeln('Элементы у которых индексы являются степенями 2-ки');

   i:=1;

   While i<n do  

    Begin

     i:=i*2;

     if i<=n then write(A[i]:3);

    End;

   readln;

End.