đây nha chúc bạn học tốt

cho mình xin ctrlhn nha, mk cảm ơn

uses crt;
var N: array [1..1000] of integer;
 a,i,j,tg,sum:integer;
begin
 clrscr;
 sum:=0;
 write('nhap so phan tu trong day: ');readln(a);
 for i:= 1 to a do
  begin
   write('nhap so thu ',i,': ');readln(n[i]);
  end;
   for i:=1 to (a-1) do
    for j:=i+1 to a do
    if n[i]<n[j] then
     begin
      tg:=n[i];
      n[i]:=n[j];
      n[j]:=tg;
    end;
 write('day so duoc sap xep theo day giam dan la: ');
 for i:=1 to a do write(n[i]:4);
 readln;
end.

uses crt;

var a : array [1 ..100] of integer;

i, n, k : integer;

begin

clrscr;

write('Nhap do dai day : '); readln(n);

write('Nhay day gom ', n ,' so : ');

for i := 1 to n do read(a[i]);

for k := n downto 2 do

    for i := 1 to k - 1 do

        if a[i] < a[i + 1] then

            begin

                a[i] := a[i] + a[i + 1];

                a[i + 1] := a[i] - a[i + 1];

                a[i] := a[i] - a[i + 1];

            end;

write('Day giam dan : ');

for i := 1 to n do write(a[i],' ');

readln

end.