сортировка

program laba6a;
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.
 
[size="1"][color="grey"][I]Добавлено через 4 часа 5 минут[/I][/color][/size]
сама додумалась
program laba6a;
type
    studs = record
        name: string[25];
        k,o: integer;
        w:string;
    end;
var
    arr_studs: array[1..15] of studs;
    sum,j, max, max1, i: integer;
    a: real;
    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;
 
begin
j:=N;
while j > 1 do begin
max := arr_studs[1].k;
max1 := 1;
for i := 2 to j do
if arr_studs[i].k > max then begin
max := arr_studs[i].k;
max1:= i
end;
arr_studs[max1].k :=arr_studs[j].k
;
arr_studs[j].k := max;
j := j - 1
end;
for i := 1 to N do
writeln( arr_studs[i].k:4);
readln;
end;
 
end.