Отсортировать массив в порядке убывания величин - Turbo Pascal - Ответ 8078609

uses crt;
const max=25;
function f(x:real):real;
begin
f:=sqr(abs(x)+sin(x));
end;
var x:array[1..max] of real;
    a:array[1..max] of byte;
    n,i,j:byte;
    y:real;
    z:byte;
begin
clrscr;
randomize;
repeat
write('размер массива от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Исходный массив');
for i:=1 to n do
 begin
  x[i]:=-5+10*random;
  write(x[i]:8:3);
  a[i]:=i;
 end;
writeln;
write('Press Enter');
readln;
clrscr;
for i:=1 to n-1 do
for j:=i+1 to n do
if f(x[i])<f(x[j]) then
 begin
  y:=x[i];
  x[i]:=x[j];
  x[j]:=y;
  z:=a[i];
  a[i]:=a[j];
  a[j]:=z;
 end;
writeln('---------------------------------------');
writeln('| Номер при вводе |  x[i]  |  f(x[i]) |');
writeln('---------------------------------------');
for i:=1 to n do
 begin
  writeln('|',a[i]:10,'       |',x[i]:7:3,' |',f(x[i]):8:3,'  |');
  if i=20 then
   begin
    write('Press Enter');
    readln;
    clrscr;
    writeln('---------------------------------------');
    writeln('| Номер при вводе |  x[i]  |  f(x[i]) |');
    writeln('---------------------------------------');
   end;
 end;
writeln('---------------------------------------');
readln
end.