как выполнить сортировку, что бы программа выдавала курс студентов по возрастанию (любая сортировка кроме пузырьком) type studs = record name: string[25]; k,o: integer; w:string; end;var arr_studs: array[1..15] of studs; sum: integer; a: real; i,n: byte;begin write('Количество студентов: '); readln(n); sum := 0; for i:=1 to n do with arr_studs[i] do begin write(i,'-й студент: '); readln(name); write('курс: '); readln(k); write(' Оценка: '); readln(o); sum := sum + o; end; a:= sum / n;writeln; writeln('Студенты с оценкой выше средней: '); for i:=1 to n do if arr_studs[i].o > a then writeln(arr_studs[i].name);readln;end.