Составить программу для сортировки методом «пузырька» массива R(20) по убыванию.

...
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if a[i]<a[i+1] then begin
k:=a[i];
a[i]:=a[i+1];
a[i+1]:=k;
end;
end;
...

for i:=1 to n-1 do
begin
min:=i;
for j:=i+1 to n do
begin
if a[j]<a[min] then min:=j ;
buf:=a[i];
a[i]:=a[min];
a[min]:=buf;
end;
end;

const
  n = 30;
var
  arr: array[1..n] of integer;
  buf, min: integer;
  i, j: byte;
begin
  randomize;
  writeln('Массив: ');
  for i:=1 to n do
  begin
    arr[i]:=random(100);
    write(arr[i], ' ');
  end;
  writeln;
  for i:=1 to n-1 do
  begin
    min:=i;
    for j:=i+1 to n do
      if arr[j] < arr[min] then min:=j;
    buf:=arr[i];
    arr[i]:=arr[min];
    arr[min]:=buf;
  end;
  writeln('Отсортированный: ');
  for i:=1 to n do
    write(arr[i], ' ');
end.

uses crt;
 var 
 r,c,i,m:integer;
 a:array[1..20] of integer;
 begin
 clrscr;
   r:=20;
  for i:=1 to r do
 readln(a[i]);
for  m:=r   downto 2 do begin
for   i:=1 to m-1 do
begin
   if  a[i]<a[i+1]    then
begin
 c:=a[i];
  a[i]:=a[i+1];
a[i+1]:=c;
  end;
  end;
   end;
for i:=1 to r do
write(a[i]:3);
readln;
end.