program oken;
uses crt;
type mang = array [1..10000000] of longint;
var a: mang;
    n,i,j,k,m,tam: longint;
begin
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    for i:=1 to n do    
        begin
            write('A[',i,']: '); readln(a[i]);
        end;
    write('Mang vua nhap:');
    for i:=1 to n do    
        write(' ',a[i]);
    writeln; write('Nhap so m: '); readln(m);
    write('Nhap vi tri: '); readln(k);
    for i:=n+1 downto k+1 do
        a[i]:=a[i-1];
    a[k]:=m;
    n:=n+1;
    write('Mang sau khi them: ');
    for i:=1 to n do
        write(' ',a[i]); writeln;
    for i:=1 to n-1 do
        for j:=i+1 to n do
                if a[i]<a[j] then
                    begin
                        tam:=a[j];
                        a[j]:=a[i];
                        a[i]:=tam;
                    end;
    write('Mang sau khi sap xep: ');
    for i:=1 to n do
        write(a[i],' ');
    readln;
end.

program ct;
uses crt;
type mang=array [1..1000] of longint;
var A:mang;
      i,j,n,k,m,x:longint;
begin clrscr;
   write('Nhap so phan tu: '); readln(n);
   for i:=1 to n do    
     begin
        write('Nhap phan tu thu: ',i,': '); readln(A[i]);
     end;
   write('Nhap so m va vi tri k: '); readln(m,k);
   for i:=n+1 downto k+1 do
      A[i]:=A[i-1];
      A[k]:=m;
      n:=n+1;
   for i:=1 to n-1 do
     for j:=i+1 to n do
        if A[i]<A[j] then
          begin
             x:=a[j];
             A[j]:=A[i];
             A[i]:=x;
          end;
   writeln('Mang sau khi chen va sap xep la: ');
   for i:=1 to n do
      write(A[i]:3);
readln;
end.

Học tốt!