Составить программу, которая корректирует список и сортирует его либо по среднему баллу, либо по алфавиту

const
  n = 10;
 
type
  anketa = record
    fam: string[40];
    oc1, oc2, oc3: integer;
    srball: real;
  end;
 
var
  student: array [1..n] of anketa;
  q, i, j: integer;
  x: anketa;
  g, f: text;
  s: string;
 
begin
  assign(f, 'stud.txt');
  assign(g, 'stud2.txt');
  reset(f);
  rewrite(g);
  writeln('Данные студентов');
  i := 1;
  while not eof(f) do
  begin
    write('Студент № ', i, ': ');
    readln(f, s);
    with student[i] do
    begin
      q := pos(' ', s);
      fam := copy(s, 1, q - 1);
      delete(s, 1, q);
      write(fam);
      oc1 := StrToInt(s[1]);
      oc2 := StrToInt(s[3]);
      oc3 := StrToInt(s[5]);
      srball := (oc1 + oc2 + oc3) / 3;
      writeln(oc1:3, oc2:3, oc3:3, srball:8:2);
    end;
    inc(i);
  end;
  q := i - 1;
  //сортировка по фамилии
  for i := 1 to q - 1 do
    for j := i + 1 to q do
      if student[i].fam > student[j].fam then
      begin
        x := student[i];
        student[i] := student[j];
        student[j] := x;
      end;
  close(f);
  writeln('Cортировка по фамилии: ');
  for i := 1 to q do
  begin
    with student[i] do
    begin
      write(g, fam, ' ');
      write(fam, ' ');
      writeln(oc1, ' ', oc2, ' ', oc3, ' ');
      writeln(g, oc1:3, oc2:3, oc3:3, srball:8:2);
    end;
  end;
  close(g);
end.