удвоить элементы массива стоящие на местах индекс которых кратен 3. отсортироват полученный массив по возрастанию
Очееень срочнооо! Пожалуйста!

const nx = 20;var x: array[1..nx] of integer; i, j, k,n,r,t: integer; begin  Writeln('Введите размер массива n');Read(n);  Randomize;   Writeln('Исходный массив');  for i := 1 to n do begin    x[i] := Random(25)-10;    Writeln(x[i]);     end; Writeln;   Writeln('Измененный массив');  for i := 1 to n do begin      if i mod 3 =0 then x[i]:= x[i] *2;      Writeln(x[i]);  end;   end.