Сортировка паскаль авс нет

type S=Record
  FIO:String;
  GR:Word;
  GP:Word;
  
  O:Array[1..3] of Byte;
  End;
 Var a:Array[1..10] of S;
  i,j,n:Byte;
  SR:real;
  l:integer;
 Begin
   Write('Kolichrstvo students:');
   Readln(n);
   For i:=1 to n do
   begin
     Writeln('Student-',i);
     Write('Input FIO:');
     Readln(a[i].FIO);
     Write('Input god rogdenia:');
     Readln(a[i].GR);
     Write('Input god postuplenia:');
     Readln(a[i].GP);
     For j:=1 to 3 do
     begin
       Write('Input ',j,' ocenku:');
       Readln(a[i].O[j]);
     end;
 
   end;
   For i:=1 to n do 
   begin
     Write(a[i].FIO:30);
     Write(a[i].GR:8);
     Write(a[i].GP:8);
     begin
      L:=0;
      for j:=1 to 3 do
       begin
         L:=L+a[i].O[j];
       end;
       SR:=L/3;
     Writeln('  SR=',SR:5:2);
     end;
   end;
 end.

type S=Record
     FIO:String;
     GR:Word;
     GP:Word;
     O:Array[1..3] of Byte;
     SB:real;
     End;
 Var a:Array[1..10] of S;
  i,j,n:Byte;
  x:S;
 Begin
Write('Kolichrstvo students:');
Readln(n);
For i:=1 to n do
 begin
     Writeln('Student-',i);
     Write('Input FIO:');
     Readln(a[i].FIO);
     Write('Input god rogdenia:');
     Readln(a[i].GR);
     Write('Input god postuplenia:');
     Readln(a[i].GP);
     a[i].SB:=0;
     For j:=1 to 3 do
      begin
       Write('Input ',j,' ocenku:');
       Readln(a[i].O[j]);
       a[i].SB:=a[i].SB/3;
     end;
end;
writeln('Несортированный список');
For i:=1 to n do
writeln(a[i].FIO:30,' ',a[i].GR:8,' ',a[i].GP:8,' ',a[i].SB:0:2);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].SB<a[j].SB then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Отсортированный список');
For i:=1 to n do
writeln(a[i].FIO:30,' ',a[i].GR:8,' ',a[i].GP:8,' ',a[i].SB:0:2);
end.

a[i].SB:=a[i].SB+a[i].O[j]/3;

type
  S = record
    FIO : String;
    GR, GP : Word;
    O : array of Integer;
    
    constructor (i : Integer);
    begin
      $'{i} студент:'.Println;
      FIO := ReadLnString  ('        Фамилия:');
      GR  := ReadLnInteger ('   Год рождения:');
      GP  := ReadLnInteger ('Год поступления:');
      SetLength(O, 3);
      (O[0],O[1],O[2]) := ReadLnInteger3('Три оценки через пробел:');
    end;
    
    public function ToString: string; override := Format('FIO:{0,-20}  GR:{1,4}  GP:{2,4}  <O>:{3:f1}', FIO, GR, GP, O.Average);
  end;
  
begin
  var n := ReadLnInteger('Количество студентов:');
  var L := New List<S>;
  for var i := 1 to n do
    L.Add(New S(i));
  WriteLn('Несортированный список:'); foreach var st in L do WriteLn(st);
  WriteLn('Отсортированный список:'); foreach var st in L.OrderBy(st->st.O.Average) do WriteLn(st);
end.

  WriteLn('Несортированный список:'); L.PrintLines;
  WriteLn('Отсортированный список:'); L.OrderBy(st->st.O.Average).PrintLines;