Сортировки Turbo Pascal

[nemoart]

Необходимо список студентов отсортировать по среднему балу (затем в алфавитном порядке, если высший бал одинаков)... ума не прилажу как объединить две сортировки. Подкиньте идее... вот сортировка по среднему баллу

Используется синтаксис Pascal

type human=record
           surname: string[27];
           year: 1945..1993;
           mark: array [1..3] of 2..5;
          end;
     stud=array [1..n] of human;

procedure sort(var so:stud);
var i,j:integer;
    b:human;
    s1,s2:real;
begin
for i:=2 to n do
 for j:=n downto i do
  begin
   s1:=so[j].mark[1]+so[j].mark[2]+so[j].mark[3];
   s2:=so[j-1].mark[1]+so[j-1].mark[2]+so[j-1].mark[3];
   if (s2<s1) then
    begin
     b:=so[j-1];
     so[j-1]:=so[j];
     so[j]:=b;
    end;
  end;
end;
 

[Maslov]

Замените

if (s2<s1) then 

на

if (s2 < s1) or ((s2 = s1) and (so[j-1].surname < so[j].surname)) then

[nemoart]

Maslov, спасибо, действительно так