Статический одномерный массив

var a,b,c: array[1..10] of integer;
    x:array of integer;
    i,j,n:integer;
begin
  randomize;
  for i:=1 to 10 do a[i]:=random(10)-5;
  for i:=1 to 10 do b[i]:=random(10)-5;
  for i:=1 to 10 do c[i]:=random(10)-5;
  SetLength(x,32); {специальная процедура выделения памяти}
  for i:=1 to 10 do 
  begin
    inc(j);
    x[j]:=a[i];
  end;
  for i:=1 to 10 do 
  begin
    inc(j);
    x[j]:=b[i];
  end;
  for i:=1 to 10 do 
  begin
    inc(j);
    x[j]:=c[i];
  end;
  for i:=1 to 30 do write(x[i],' ');
end.

procedure Sorting (var mas: array of integer; const count: integer)
var
    i: integer;
    flag: boolean;
begin
    repeat 
        flag := false;
        for i := 1 to (count - 1) do
            if mas[i] < mas[i+1] then
            begin
                flag := true;
                mas[i] := mas[i] + mas[i+1];
                mas[i+1] := mas[i] - mas[i+1];
                mas[i] := mas[i] - mas[i+1]
            end;
    until flag = false;    
end;

const
  n = 20;
 
var
  a: array[1..100] of integer;
  i, j: integer;
  nmin, buf: integer;
 
begin
  randomize;
  for i := 1 to n do a[i] := random(10) - 5;
  writeln('Исходный массив: ');
  for i := 1 to n do write(a[i], ' ');
  writeln;
  for i := 1 to n - 1 do 
  begin
    nmin := i;
    for j := i + 1 to n do
      if a[j] < a[nmin] then nmin := j;
    buf := a[i];
    a[i] := a[nmin];
    a[nmin] := buf;
  end;
  writeln('Упорядоченный массив: ');
  for i := 1 to n do write(a[i], ' ');
end.