Массив и его преобразование

[svitlik]

Type mas = Array[1..10] of Real; 
Var V:mas;   
       P,S,A: Real; 
       i:Byte;   
Begin   
       Randomize;   
       for i:=1 to 10 do   
          begin 
            V[i]:= Random(50); 
            P:=1; S:=0; A:=0;   
            P:=P*V[i];   
            S:=S+V[i]; 
            A:=S/10; 
          end; 
Writeln('Сумма = ',s:4:1, 'Произведение = ',P:4:1, 'Среднее арифметическое = ',A:4:1); 
End.

Отредактируйте, пожалуйста, код программы так, чтобы найти сумму модулей елементов массива, расположеных после первого элемента равного нулю и преобразовать массив так, чтобы в первой его половине разместились элементы, которые стоят в парных позициях, а в другой половине - элементы, которые стоят не в парных позициях.