Дан действительный массив А(п). Упорядочить массив по убыванию, по возрастанию - Turbo Pascal - Ответ 3669305

Var A:array[1..100] of real;
    i,j,n:byte;
    t:real;
Begin
    write('Введите размерность: ');readln(n);
    writeln('Исходный');
    For i:=1 to n do
    Begin
      A[i]:=random*10;
      write(A[i]:5:2);
    End;
    writeln;
    For i:=n downto 2 do
     For j:=2 to i do 
      if A[j]>A[j-1] then
      Begin
        t:=A[j];
        A[j]:=A[j-1];
        A[j-1]:=t;
      End;
    writeln('По убыванию');
    For i:=1 to n do
     write(A[i]:5:2);
    writeln;
    For i:=n downto 2 do
     For j:=2 to i do 
      if A[j]<A[j-1] then
      Begin
        t:=A[j];
        A[j]:=A[j-1];
        A[j-1]:=t;
      End;
    writeln('По возрастанию');
    For i:=1 to n do
     write(A[i]:5:2);
    readln;
End.