упорядочить массив по среднему баллу, ПОМОГИТЕ!!! Опции

[natik3]

Создать массив из 20 элементов,хранящих информацию о студенках факультета.Каждый элемент содержит фамилию,курс,форму обучения,(специалист,бакалавр,магис тр)и оценки по 5 предметам за последнюю сессию.
Упорядочить массив по среднему баллу.Осуществить перевод студентов на следующий курс.Переводятся студенты ,не имеющие задолжностей за последнюю сессию,студенты 5-ого курса(специалисты) и 6-ого курса(магистры)должны быть удалены ,как окончившие курс обучения.

Решить задачу в Delphi.C помощью процедур и функций.Помогите разобраться...нужно сначало создать файл,потом сортировать,потом процедура перевода на другой курс,там в цикле до 6 или 5 курса проверка,подфункция на проверку двоечников,если они есть удаляем их,если 5 или 6 курс тоже удаляем.я начала.подскажите правильно ли.и как дальше?



program str155n10;

{$APPTYPE CONSOLE}

uses
SysUtils,windows;
type
Tsession = array[1..10,1..5] of record //Сведения об экзаменах
name: string[10]; //название экзамена
mark: 1..5; //оценка
end;
student = record // Сведения о студенте
FIO: string[40]; // фамилия, имя, отчество
curs: 1..5; // курс
group: 1..9; // группа
results: Tsession; // сведения об экзаменах
end;
TFile= file of student ; // файловая переменная, содержащая сведения о студентах
var k:integer;
fname: string;
f:TFile;
sr: real;
//--
procedure New_file(var f:tfile; var name:string); // Создание пустого файла
var yn:char;
begin
writeln('_____________________');
write('Имя нового файла: ');
readln(name); // Ввод имени
if name='' then writeln('Имя файла пусто!') else // Проверка на непустоту введенного имени
if fileexists(name) then // Проверка на существование файла
begin
write('Файл с таким именем существует, заменить? (y/n): ');
readln(yn);
if yn in ['y','Y','Н','н'] then
begin // Если файл существует, можно его заменить
assign(f,name);
rewrite(f); // путём открытия файла для записи
writeln('Файл "',name,'" создан!');
closefile(f);
end;
end
else
begin
assign(f,name);
rewrite(f);
writeln('Файл "',name,'" создан!');
closefile(f);
end;

end;
//--