Упорядочить список в файле

PROGRAM sss;
uses crt;
TYPE
anceta=RECORD
  fam,im,otch:STRING[20];
  grmath,grinf:byte;
END;
spisok=FILE OF anceta;
VAR
 sp:spisok;
 a:anceta;
 i:INTEGER;
 k:integer;
 kod_k1:char;
 fam,im,otch: string [20];
 grmath,grinf:byte;
 
PROCEDURE MENU;
begin
TEXTBACKGROUND(0);
CLrsCR;
WINDOW (1,1,90,40);
TEXTBACKGROUND(7);
CLrSCR;
TEXTCOLOR(4);
GOTOXY(5,2); WRITE('1 Число студентов);
GOTOXY(5,5);WRITE ('2 Ввод данных о студентах);
GOTOXY(5,8);WRITE ('3 Список студентов по успеваемости);
GOTOXY(5,11);WRITE ('4 Выход');
END;
 
 
PROCEDURE VVODK;
begin
WRITEln;
writeln;
writeln;
WRITE ('Vvedite chislo studentov  ');
read (k);
end;
 
procedure DANNYE;
Begin
writeln;
writeln;
writeln;
ASSIGN (sp,'lab.DAT');
REWRITE (sp);
FOR i:=1 TO k DO
begin
readln;
write('Familiya ');
readln(a.fam);
writeln;
WRITE ('Imya ');
READln (a.im);
writeln;
WRITE ('Otchestvo ');
reADln (a.otch);
writeln;
write('Ocenka po math ');
readln (a.grmath);
writeln;
write ('Ocenka po inf ');
readln (a.grinf);
write (sp,a);
end;
 
CLOSE (sp);
END;
 
begin
while true do
begin
clrscr;
menu;
kod_k1:=READKEY;
case kod_k1 of
'1':Число студентов;
'2':Ввод данных о студентах;
'3':Список студентов по успеваемости;
'4':Выход';
END;
END;
END.