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

const n=10;
var
a:array[1..n] of integer;
i,j,t:integer;
begin
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
for i:=1 to n-1 do
for j:=1 to n do
if a[j]<a[i] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
for i:=1 to n do
write (a[i],'  ');
end.

uses crt;
var
 a:array[1..100]of integer;
 i,n,temp,j:integer;
begin clrscr;
 write('n=');
 read(n);
 for i:=1 to n do
  begin
   write('a[',i,']=');
   read(a[i]);
  end;
 
 for i:=1 to n do
 for j:=1 to n-1 do
 if a[j]<a[j+1] then
  begin
   temp:=a[j];
   a[j]:=a[j+1];
   a[j+1]:=temp;
  end;
 for i:=1 to n do
 write(a[i],'  ');
 readkey;
end.

uses crt;
var a,b,c:array[1..500] of integer;
    n,m,i,j,k:integer;
begin
clrscr;
write('n=');readln(n);
write('m=');readln(m);
writeln('Massiv A:');
for i:=1 to n do
   begin
    a[i]:=2*i+1;{введем нечетные числа}
    write(a[i],' ');{введем четные числа}
   end;
writeln;
writeln('Massiv B:');
for i:=1 to m do
   begin
    b[i]:=2*i;
    write(b[i],' ');
   end;
writeln;
i:=1; j:=1; k:=1; {устанавливаем счётчики}
while (i<=n) or (j<=m) do {пока не дошли до конца каждого из массивов}
  begin
   if (i<=n) and (j<=m) then {если оба массива ещё не закончились}
     begin
       if a[i]<b[j] then {то пишем в новый массив меньший из текущих элементов}
        begin
         c[k]:= a[i];
         inc (i); {переходим к следующему элементу соответствующего массива}
         inc (k); {переходим к следующему элементу конечного массива}
        end
       else
        begin
         c[k]:= b[j];
         inc (j);
         inc (k);
        end
     end
   else if j>m then {иначе один из массивов уже закончился}
     begin {и мы пишем из того, в котором ещё есть элементы}
       c[k]:= a[i];
       inc (i);
       inc (k);
     end
   else if i>n then
     begin
       c[k]:= b[j];
       inc (j);
       inc (k);
     end;
  end;
writeln('Massiv C:');
for i:=1 to m+n do
write(c[i],' ');
readln
end.