Đây là thuật toán cho bạn dễ hiểu nhé!

program bt;

var

     

begin

         for i:=1 to 6 do readln(A[i]);                                       

         for i:=1 to 6 do write(A[i],' ')   {Bạn in dãy vừa nhập ra để dễ theo dõi nha}

         for i:=1 to 5 do

         for j:=i+1 to 6 do if A[i] < A[j] then

        begin

              tam:=A[i];                                       

              A[i]:=A[j];

             A[j]:=tam;      {bạn đổi chỗ các phần tử, như bạn hoán đổi giá trị x và y}

        end;

        for i:=1 to 6 do write(A[i],' ');

        readln;

end.

ĐÂY LÀ THUẬT TOÁN. BẠN HỌC TỐT NHÉ!