Помогите, пожалуйста!!!
Turbo Pascal
Создайте массив, содержащий 20 различных целых чисел. Отсортируйте первую половину массива по возрастанию, а вторую по убыванию. Все четные элементы массива увеличить в три раза, а нечетные в 2 раза. содержимое обработанного таким образом массива вывести на экран.

var j, i, x:integer; a: array [1..20] of integer;begin     randomize;     writeln();     for i := 1 to 20 do         a[i] := random(1000);     for j := 2 to 10 do         for i := 10 downto j do             if a[i] < a[i - 1]             then             begin                  x := a[i];                  a[i] := a[i - 1];                  a[i - 1] := x;             end;      for j := 12 to 20 do         for i := 20 downto j do             if a[i] > a[i - 1]             then             begin                  x := a[i];                  a[i] := a[i - 1];                  a[i - 1] := x;             end;      for i := 1 to 20 do      if i mod 2 = 0       then         a[i] := 3 * a[i]      else          a[i] := 2 * a[i];      writeln();      for i := 1 to 20 do          write(a[i], ' ');end.