function CompareTensu(var S1, S2: student_record): Boolean;
function CompareBango(var S1, S2: student_record): Boolean;
って比較する関数を適当に作って。
var
　Compare: function(var S1, S2: student_record): Boolean;
begin
　if 点数でやるなら then
　　Compare:=CompareTensu
　else
　　Compare:=CompareBango;
　あとはCompareで比較してソートで良いと思うよ。
end;