Сортировка списка студентов - Pascal ABC

Формулировка задачи:

В одном файле содержится список студентов (фамилия, имя, отчество, год рождения и пять оценок) во второй файл нужно внести отсортированный список студентов по фамилии, имени, отчеству в алфавитном порядке (как я поняла три списка должно быть в новом файле) методом ВЫБОРА. (в программе часть сортировки обозначена процедурой del ничего дельного у меня не вышло).

type student=record
surname:string[15];
name:string[10];
otch:string[15];
gr:integer;
mark:array[1..5] of integer;
end;
mas=array[1..20] of student;
 
procedure massiv(var a:mas;var n:integer);
var i,j:integer;
begin
repeat
write('Введите количество студентов от 2 до 20 n=');
readln(n);
until n in [2..20];
writeln('Введите данные студентов');
for i:=1 to n do
begin
writeln('Студент ',i);
with a[i] do
begin
write ('фамилия: ');readln(surname);
write('имя  ');readln(name);
write('отчество  ');readln(otch);
write('год рождения: ');readln(gr);
writeln('введите 5 оценок от 2 до 5:');
for j:=1 to 5 do readln(mark[j]);
end;
end;
end;
 
procedure del(var a:mas;var n:integer);
...
end;
end;
 
procedure print(a:mas;n:integer;s:string);
var i,j:integer;
begin
writeln(s);
writeln('|    Фамилия    |   Имя    |   Отчество   |Год рождения|  Оценки  |');
for i:=1 to n do
with a[i] do
begin
write('|',surname:15,'|',name:13,'|',otch:15,'|',gr:6,'|');
for j:=1 to 5 do
write(mark[j]:2);
writeln('|');
end;
writeln('-----------------------------------------------------------------');
end;

var a:mas; f,f1:text; s,s1:string;
n:integer; 
begin
writeln('введите имя файла с данными'); read(s);
writeln('введите имя второго файла'); read(s1);
 
assign(f,s);
rewrite(f);
massiv(a,n);
print(a,n,'Полный список студентов');
del(a,n);
close(f);
assign(f1,s1);
rewrite(f1);
print(a,n,'Список студентов отсортированный по фамилиям');
close(f1);
end.

Решение задачи: «Сортировка списка студентов»

textual
                            Листинг программы 
                        

                            procedure sort(var a:mas;n:integer);
var buf:st;
    i,j,nmin:integer;
begin
for i:=1 to n-1 do
  begin
    nmin:=i;
    for j:=i+1 to n do
    if a[j].f>a[nmin].f then nmin:=j;
    buf:=a[i];
    a[i]:=a[nmin];
    a[nmin]:=buf;
  end;
end;
                        