Разработать программу для обработки одномерного динамического массива

type
  vector = array of integer;
 
var
  x: vector;
  n, i: integer;
 
procedure BubbleMethodSort(var a: vector; n: integer);
{сортировка пузырьком по возрастанию}
var
  i, j, buf: integer;
begin
  for i := 0 to N - 2 do
  begin
    for j := i + 1 to N - 1 do
      if a[i] < a[j] then
      begin
        buf := a[i];
        a[i] := a[j];
        a[j] := buf;
      end;
  end;
end;
 
procedure SelectionMethodSort(var a: vector; n: integer);
var
  i, j, nmin, buf: integer;
{сортировка выбором по возрастанию}
begin
  for i := 0 to n - 1 do
  begin
    nmin := i;
    for j := i + 1 to n - 1 do
      if a[j] < a[nmin] then 
        nmin := j;
    buf := a[i];
    a[i] := a[nmin];
    a[nmin] := buf;
  end;
end;
 
procedure InputVector(var a: vector; n: integer);
var
  i: integer;
begin
  writeln('Введите ', n, ' элементов массива:');
  for i := 0 to n - 1 do
    read(a[i]);
  writeln('Исходный массив, заполненный с клавиатуры:');
  for i := 0 to n - 1 do
    write(a[i]:4);
  writeln;
end;
 
procedure GenerateVector(var a: vector; n: integer);
var
  i: integer;
begin
  writeln('Исходный массив, заполненный генератором случайных чисел:');
  for i := 0 to n - 1 do
  begin
    a[i] := -n div 2 + random(n);
    write(a[i]:4);
  end;
  writeln;
end;
 
procedure PrintVector(a: vector; n: integer);
var
  i: integer;
begin
  for i := 0 to n - 1 do
    write(a[i]:4);
  writeln;    
end;
 
begin
  randomize;
  write('Введите размерность массива: ');
  readln(n);
  SetLength(x, n);
  InputVector(x, n);
  SelectionMethodSort(x, n);
  writeln('Упорядоченный массив (метод выбора): ');
  PrintVector(x, n);
  BubbleMethodSort(x, n);
  writeln('Упорядоченный массив (метод пузырька): ');
  PrintVector(x, n);
  SetLength(x, 0);
end.