Удаление элементов из одномерного массива(PascalABCNET)

[FlayGlam]

"Сожмите" массив, "выбросив" каждый второй его элемент (дополнительные массивы использовать не разрешается).

[newerow1989]

var i,j:integer;
    len:integer=10;
    p:array of integer;
begin
   Randomize;
   SetLength(p,len);
   For i:=0 to len-1 do
   begin
      p[i]:=Random(21);
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   For i:=0 to len div 2-1 do
   begin
      p[i]:=p[i*2];
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Readln;
end.

[FlayGlam]

Пасибо большое

[newerow1989]