Отсортировать в порядке убывания по действительной части элементы этого массива

Const nmax=100;
Type komplex=Record
      Im:real;
      Re:real;
     End;
Var A:array[1..nmax] of komplex;
    i,j,n:byte;
    t:komplex;
Begin
    Repeat
     write('Количество элементов массива: ');readln(n);
    Until n in [1..100];
    For i:=1 to n do
    Begin
      writeln(i,' число');
      write('Re: ');readln(A[i].Re);
      write('Im: ');readln(A[i].Im);
    End;
    writeln('Исходный массив');
    For i:=1 to n do
     if A[i].Im=0 then writeln(A[i].Re)
      else if  A[i].Im<0 then writeln(A[i].Re,' - i',abs(A[i].Im)) 
       else writeln(A[i].Re,' + i',A[i].Im); 
    For i:=n downto 2 do
     For j:=2 to i do
      if A[j].Re>A[j-1].Re then
      Begin
        t:=A[j];
        A[j]:=A[j-1];
        A[j-1]:=t;
      End;
    writeln('Полученный массив');
    For i:=1 to n do
     if A[i].Im=0 then writeln(A[i].Re)
      else if  A[i].Im<0 then writeln(A[i].Re,' - i',abs(A[i].Im))
       else writeln(A[i].Re,' + i',A[i].Im); 
    readln;
End.