sortering af arrays

Jeg har 2 arrays hvor af list1 er sorteret af B (1, 2, 3, 4) mens A er usorteret.
Nu mangler jeg bare et eller andet kode der kan sortere list2 sådan
at A er sorteret (0.3, 0.7, 1.1, 1.5) og B er usorteret (2, 4, 3, 1).

type
  Tab = record
    A, B : single;
  end;

var
list1 : array of Tab;
list2 : array of Tab;
begin
setlength(list1, 4);
list1[0].A := 1.5; list1[0].B := 1;
list1[1].A := 0.3; list1[1].B := 2;
list1[2].A := 1.1; list1[2].B := 3;
list1[3].A := 0.7; list1[3].B := 4;

// på en eller anden måde skal list1 sorters af A mens B er usorteret
// så der kommer til at stå følgende i list2:
// 0.3 = list2[0].A & 2 = list2[0].B
// 0.7 = list2[1].A & 4 = list2[1].B
// 1.1 = list2[2].A & 3 = list2[2].B
// 1.5 = list2[3].A & 1 = list2[3].B

end;

ZeroHero