Сортировка по алфавиту

program vedomost;
 
const n=5;
 
type stud = record
    familia : string;
    math : integer;
    phisics : integer;
    programm : integer;
    history : integer;
    sa:real;
end;
 
var students:array [1..n] of stud;
    i,j:integer;
 
begin
for i:=1 to n do
 with students[i] do
  begin
for i:=1 to n do begin
    with students[i] do begin
        write('Familia ', i, ': ');
        readln(familia);
        write('ball math: ');
        readln(math);
        write('ball phisics: ');
        readln(phisics);
        write('ball programm: ');
        readln(programm);
        write('ball history: ');
        readln(history);
        sa:=(math+phisics+programm+history)/4;
    end;
end;
begin
writeln;
writeln('Vedomost');
writeln('______________________________________________________');
writeln('|Familia|  math | phisics | programm | history | Sredniy ball |');
writeln('______________________________________________________');
for i:=1 to n do
 begin
    with students[i] do
  begin
        writeln('|', Familia:7, '|', math:7, '|', phisics:7, '|', programm:7, '|', history:7, '       |', sa:7:3, '|');
    end;
    writeln('______________________________________________________');
    end;
    end;
    end;
    end.