Дан одномерный массив, состоящий из 20 элементов. вывести на экран те элементы массива, индексы которых являются степенями двойки (1, 2, 4, 8, 16 ,! не могу

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var a:array[1..20] of integer;
  for var i:=1 to 20 do a[i]:=Random(-10,35);
  Writeln('Исходный массив');
  a.Println(',');
  Writeln('Элементы с искомыми индексами');
  var i:=1;
  while i<20 do begin
    WritelnFormat('a[{0}]={1}',i,a[i]);
    i:=2*i
    end
end.

Тестовое решение:
Исходный массив
-8,15,32,25,24,11,18,-2,20,17,15,4,9,30,-10,10,29,31,4,27
Элементы с искомыми индексами
a[1]=-8
a[2]=15
a[4]=25
a[8]=-2
a[16]=10