Помогите, пожалуйста!!!Turbo PascalСоздайте массив, содержащий 20 разных целых чисел.

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] lt; 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] gt; 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.