Дан одномерный массив, содержащий n целых чисел (n<=25). Отсортировать его по убыванию

Program ps5;
uses crt;
var
i,j,k:integer;
A:array[1..25] of integer;
Begin  
Textcolor (12);
   For i:=1 to 25 do
     Begin
       A[i]:=random(20)-10;
       Write(A[i]:4);
     End;
 For i:=1 to 24 do
    Begin
     For j:=i+1 to 25 do
       Begin 
        If A[i] < A[j] then
         Begin
          k:=A[i];
          A[i]:=A[j];
          A[j]:=k;
         End;
       End;
    End; 
 writeln;
Textcolor (10);
 write('Массив по убыванию-> '); 
For i:=1 to 25 do
 Begin
 write(A[i], ' ');
 End; 
Textcolor (15);
 writeln
End.

var
a: array[1..100] of integer;
s,k,i,n,w: integer;
begin
  readLn(n);
  for i:= 1 to n do do
    read(a[i]);
 
  for k:= 1 to n-1 do begin
    for i:= 1 to n-k do begin
      if a[i] < a[i+1] then
      begin
        w:= a[i];
        a[i]:= a[i+1];
        a[i+1]:= w;
      end;
    end;
  end;
 
  for i:= 1 to n do
    Write(a[i], ' ');
 
end.