Сортировка массива записей по нескольким критериям (Паскаль)

  type Pupil = record
  fio: string [50];
  classNum: integer;
  ball: integer;
end;
var
Pupils: array of Pupil;
n: integer;

function Compare (a, b: Pupil): integer;
begin {Сравниваем класс}
  if a.classNum < b.classNum then   Compare := -1
  else if a.classNum > b.classNum     then Compare := 1
    else begin {Сравниваем баллы     (по убыванию)}
      if a.ball > b.ball then               Compare := -1
      else if a.ball < b.ball then       Compare := 1
        else begin {Сравниваем         по фамилии}
        if a.fio < b.fio then         Compare := -1
        else if a.fio > b.fio then         Compare := 1
          else Compare := 0; end;
      end;
   end;