Сформировать новый одномерный массив из элементов исходного массива

var
  a: array [1..100] of integer;
  i, j, k, n, buf: integer;
 
begin
  repeat
    write('Задайте размер массива: ');
    readln(n);
  until n in [1..100];
  writeln('Массив:');
  for i := 1 to n do
  begin
    repeat
      k := 0;
      a[i] := random(-101, 101);
      for j := 1 to i - 1 do
        if a[j] = a[i] then inc(k);
    until k = 0;
    write(a[i], ' ');
  end;
  writeln;
 
for i:=2 to n do
    for j:=n downto i do
    if a[j-1]>a[j] then
    begin
      buf:=a[j-1];
      a[j-1]:=a[j];
      a[j]:=buf;
    end;
 
  for i:=1 to n do write(a[i],' ');
  readln;
end.
 
[size="1"][color="grey"][I]Добавлено через 49 минут[/I][/color][/size]
Вроде работает. Но сам до конца не понял, что откуда берется. Возможно наворотил лишнего.
 
var
  b: array[1..100] of  integer;
  a: array [1..100] of integer;
  i, j, k, n, buf: integer;
 
begin
  repeat
    write('Задайте размер массива: ');
    readln(n);
  until n in [1..100];
  writeln('Массив:');
  for i := 1 to n do
  begin
    repeat
      k := 0;
      a[i] := random(-99, 99);
      for j := 1 to i - 1 do
        if a[j] = a[i] then inc(k);
    until k = 0;
    write(a[i], ' ');
  end;
  writeln;
 
 
 
  
 
 
for i:=2 to n do
    for j:=n downto i do
    if a[j-1]>a[j] then
    begin
      buf:=a[j-1];
      a[j-1]:=a[j];
      a[j]:=buf;
    end;
    
      for i:=1 to n do
    if (a[i] mod 2=0) and (abs(a[i])<20) then write(a[i],' ');
    
    readln;
end.