Вывести по возрастанию элементыы

[newbieee]

Сформировать список из N целочисленных случайных элементов (N – вводится
пользователем, значения элементов выбирать из диапазона от 1 до 100). Вывести элементы по возрастанию)))

Допустим исходный список: 3,8,2,7,9
После, должно получится: 2,3,7,8,9

[min@y™]

и чо?

[abit]

var
  A:array of byte;
  i,n:dword;

procedure sort(l,r: dword);
   var i,j,x,y: dword;
begin
   i := l;
   j := r;
   x := A[ (l + r) div 2 ];
   repeat
     while A[i] < x do inc(i);
     while x < A[j] do dec(j);
     if not (i>j) then
       begin
         y    := A[i];
         A[i] := A[j];
         A[j] := y;
         inc(i);
         dec(j);
       end;
   until i>j;
   if l < j then sort(l,j);
   if i < r then sort(i,r);
end;

begin
  Write('Введите N : ');readln(n);
  SetLength(A,N);
  randomize;
  writeln('Сгенерированный массив:');
  for i:=0 to N-1 do begin A[i]:=random(100)+1; write(A[i],' ') end;
  writeln;
  sort(0,High(A));
  writeln('Отсортированный:');
  for i:=0 to N-1 do write(A[i],' ');
  readln;
end.