Массив от меньшего числа к большему.

Program n1;
var a:array[1..10]of integer;
i,j,temp:integer;
begin
randomize;
for i:=1 to 10 do
  begin
    a[i]:=random(20);
    write(a[i]:3);
  end;
for i:=1 to 9 do
  for j:=i+1 to 10 do
    if a[i]>a[j] then
      begin
        temp:=a[i];a[i]:=a[j];a[j]:=temp;
      end;
writeln('Otsortirovannyi massiv:');
for i:=1 to 10 do
  write(a[i]:3);
end.

uses crt;
var a:array [1..10] of integer;
    i,d,b:integer;
Begin
Writeln('Ââåäèòå ìàññèâ');
For i:=1 to 10 do read(a[i]);writeln;ClrScr;
For i:=1 to 10 do write(a[i]:5);
repeat
  d:=0;
  For i:=1 to 10-1 do
   begin
   if a[i]>a[i+1] then
                  begin
                   b:=a[i];
                   a[i]:=a[i+1];
                   a[i+1]:=b;d:=1;
                  end;
   end;
 Until d=0;writeln;
 Writeln('Îñîðòèðîâàííûé ìàññèâ');
 For i:=1 to 10 do write(a[i]:5);
 end.

uses crt;
var a:array [1..10] of integer;
    i,n,s,b:integer;
begin
for i:=1 to 10 do
begin
  repeat
  a[i]:=random(100)+n;
  Until (i=1)or(s-a[i]<=s-b);
  s:=s+a[i];b:=a[i];
  write(a[i]:5);n:=i*10;
end;
end.