// Насколько я смог разобрать, тебе нужно это
const n = 5;
var a: array [1..n] of integer;
i, j, imax, x: integer;
begin
randomize;
for i:=1 to n do
a[i]:=random(90);
writeln('Исходный массив: ');
for i:=1 to n do
writeln('a['+i+'] = '+a[i]);
writeln();
for i:=1 to n-1 do
begin
imax:=i;
for j:=i+1 to n do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a[imax]:=x;
end;
writeln('Отсортированный по убыванию массив: ');
for i:=1 to n do
writeln('a['+i+'] = '+a[i]);
writeln();
end.