Паскаль. Помогите с задачей!

[LIARH]

Дан одномерный массив Zn. Удалить все элементы массива с четными индексами. Дописать в конец массива сумму положительных элементов массива. Отсортировать исходный массив по возрастанию.

Помогите пожалуйста, решите поподробней. Заранее спасибо.

P.S. Язык Pascal.

[Stilet]

Удалить все элементы массива с четными индексами

Удаление физически или разрешено просто не выводить их на экран?

[Sazary]

Вот вам удаление (смещением)

uses crt;

var
x : array[1..10] of integer = (1,2,3,4,5,6,7,8,9,10);
i,k,n : integer;

begin
clrscr;
n := 10;

for i:=1 to n do
 write(x[i],' ');

i:=1;
k:=1;
while k<=n do
 begin
 x[i] := x[k];
 inc(i);
 inc(k,2);
 end;
n := i-1;

writeln;
for i:=1 to n do
 write(x[i],' ');

readln 
end.