Список: Сформировать список целых чисел и упорядочить их по неубыванию.

const n=100;
var a:array[1..n] of integer;
    m,i,j:byte;
    ch,c:integer;
begin
  for i:=1 to n do a[i]:=0;
  writeln('Vvedite kolli4estvo chisel ne >100');
  readln(m);
  writeln('Vvedite chisla');
  for i:=1 to m do
    begin
      read(c);
      a[i]:=c;
    end;
  for i:=1 to m do
    for j:=m downto 2 do
      begin
        if a[j]<a[j-1] then
          begin
            ch:=a[j];
            a[j]:=a[j-1];
            a[j-1]:=ch;
          end;
      end;
  for i:=1 to m do
    write(a[i],' ');
  readln;
end.

const n=15;
var a:array[1..n] of integer;
    m,i,j:byte;
    ch,c:integer;
begin
  for i:=1 to n do
    begin
      a[i]:=-10+random(40);
      write(a[i],' ');
    end;
  for i:=1 to n do
    for j:=n downto 2 do
      begin
        if a[j]<a[j-1] then
          begin
            ch:=a[j];
            a[j]:=a[j-1];
            a[j-1]:=ch;
          end;
      end;
  writeln;
  for i:=1 to n do
    write(a[i],' ');
  readln;
end.