Сортировка записей

program students;
 
type
  info = record
    fam: string[20];
    name: string[15];
    rate1, rate2, rate3: word;
  end;
 
var
  F, V: text;
  student: array[1..500] of info; ch:info;
  i, n, k, j: integer;
  c: char;
  r1, r2, r3: byte;
 
begin
  assign(F, 'students.txt');
  reset(F);
  assign(V, 'output.txt');
  rewrite(V);
  readln(F, n);
  for i := 1 to n do
  begin
    k := 0;
    while k <> 1 do 
    begin
      read(F, c);
      if c = ' ' then begin k := k + 1; break; end;
      student[i].fam := student[i].fam + c;
    end;
    while k <> 2 do 
    begin
      read(F, c);
      if c = ' ' then k := k + 1;
      student[i].name := student[i].name + c;
    end;
    
       
    
    read(F, r1);
    student[i].rate1 := r1;
    read(F, r2);
    student[i].rate2 := r2;
    read(F, r3);
    student[i].rate3 := r3; 
  end;
 for i := 1 to n - 1 do
  begin
      for j := n - 1 downto i do
        if student[j].fam > student[j + 1].fam then begin //здесь сортирую 
          ch := student[j];
          student[j] := student[j + 1];
          student[j + 1] := ch;
        end;
        end; 
        
  for i := 1 to n do 
  begin
    if (student[i].rate1 >= 30) and (student[i].rate2 >= 30) and (student[i].rate3 >= 30) then begin
      if (student[i].rate1 + student[i].rate2 + student[i].rate3 >= 140) then begin
        write(V, student[i].fam, ' ', student[i].name); end; end; end;
  close(F);
  close(V);
end.

type
  info = record
    fam: string[20];
    name: string[15];
    rate1, rate2, rate3: word;
    
    function toString : String; override;
    begin
      Result := $'{fam} {name} {rate1} {rate2} {rate3}';
    end;
  end;
 
function ReadStudents(fName : String) : List<info>;
begin
  Result := New List<info>;
  
  foreach var Line in ReadLines(fName) do
    begin
      var words := Line.toWords;
      if words.Count = 5 then
        begin
          var s := New info;
          s.fam := words[0];
          s.name := words[1];
          s.rate1 := StrToInt(words[2]);
          s.rate2 := StrToInt(words[3]);
          s.rate3 := StrToInt(words[4]);
          Result.Add(s);
        end;
    end;
end;
 
begin
  var student := ReadStudents('students.txt');
  'Список студентов:'.Println;
  student.PrintLines;
 
  PrintLn;
  'Список студентов отсортирован по фамилиям:'.Println;
  student.OrderBy(v->String(v.fam)).PrintLines;
  
  PrintLn;
  'Список с условиями:'.Println;
  student.Where(v->(v.rate1>29)and(v.rate2>29)and(v.rate3>29)and(v.rate1+v.rate2+v.rate3>139)).PrintLines;
  
  PrintLn;
  'Список отсортированный с условиями:'.Println;
  student.OrderBy(v->String(v.fam)).Where(v->(v.rate1>29)and(v.rate2>29)and(v.rate3>29)and(v.rate1+v.rate2+v.rate3>139)).PrintLines;
end.

begin
  readlines('students.txt') //Чтение из файла
  .where(s->{Условие, по которому будут оставляться студенты}(s.towords.elementat(2).tointeger>50)) //Например, этот код оставит всех, у кого rate1 > 50
  .skiplast(1).skip(1) //skiplast удаляет последние элементы, skip - первые
  .writelines('output.txt'); //Вывод в файл
end.