Задача о студентах - решение

const
  N = 6;
  M = 3;
 
type
  Student = class
  public 
    Name, Surname: string;
    Assessments: array [0..2] of integer;
    
    constructor(n, sn: string; r1, r2, r3: integer);
    begin
      Name := n;
      Surname := sn;
      Assessments[0] := r1;Assessments[1] := r2;Assessments[2] := r3;
    end;
    
    function Sum()  := Assessments[0] + Assessments[1] + Assessments[2];
  end;
 
var
  Students: array of Student;
  Data: string;
  j: integer;
 
begin
  SetLength(Students, N);
  for var i := 0 to N - 1 do
  begin
    Readln(Data);
    var a := Data.Split();
    Students[i] := new Student(a[0], a[1], StrToInt(a[2]), StrToInt(a[3]), StrToInt(a[4]));
  end;
  
  Students := Students.OrderBy(v -> v.Assessments.Sum()).ToArray();
  
  var i := 0;
  var Sum := Students[0].Sum();
  while i < N do
  begin
    while (i < N) and (Students[i].Sum() = Sum) do
    begin
      WritelnFormat('Ученик {0} {1} {2}-ый по счету имеет баллы {3}.', Students[i].Name, Students[i].Surname, j + 1, Students[i].Sum());
      Inc(i);
    end;
    
    if i < N then
    begin
      Inc(j);
      Sum := Students[i].Sum();
    end;
    
    if j >= M then break;
  end;
end.

const
  N = 10;
  M = 3;
 
type
  Student = class
  public 
    Name, Surname: string;
    Assessments: array of integer;
    
    constructor(n, sn: string; r1, r2, r3: integer);
    begin
      Name := n;
      Surname := sn;
      Assessments := Arr(r1, r2, r3);
    end;
    
    function ToString := Format('Ученик: {0}, {1}; оценки: {2}', Name, Surname, Assessments.JoinIntoString(' '));
  end;
 
var
  Students: array of Student;
  Data: string;
  j: integer;
 
begin
  var info := Arr('Иванов Иван 3 4 4',
                  'Петров Алексей 4 3 4',
                  'Алексеева Ирина 5 4 4',
                  'Сидоров Василий 4 3 5',
                  'Кукушкина Зоя 5 4 5',
                  'Васильев Павел 4 4 5',
                  'Ужов Виктор 3 4 4',
                  'Ежов Николай 3 5 3',
                  'Водкин Александр 3 4 4',
                  'Перова Ольга 4 4 4');
  Students := new Student[N];
  for var i := 0 to Pred(N) do // это только для теста, не обращай внимания
  begin
    var a := info[i].Split;
    Students[i] := new Student(a[0], a[1], StrToInt(a[2]), StrToInt(a[3]), StrToInt(a[4]));
  end;
  (*
    SetLength(Students, N);
    for var i := 0 to N - 1 do
    begin
      Readln(Data);
      var a := Data.Split();
      Students[i] := new Student(a[0], a[1], StrToInt(a[2]), StrToInt(a[3]), StrToInt(a[4]));
    end;
    *)
  
  Students := Students.OrderByDescending(v -> v.Assessments.Average()).ToArray();
  
  writeln('Best average:');
  var avgBest := Students.Take(M).Select(v -> v.Assessments.Average());
  writeln(Students.Take(M).Select(v -> v.ToString).JoinIntoString(NewLine));
  writeln('Worst average:');
  var avgWorst := Students.TakeLast(M).Select(v -> v.Assessments.Average());
  writeln(Students.TakeLast(M).Select(v -> v.ToString).JoinIntoString(NewLine));
  
  var other := Students.Skip(M).SkipLast(M).Where(v -> avgBest.Concat(avgWorst).Contains(v.Assessments.Average));
  writeln('Кроме этого, средние баллы, совпадающие с лучшими/худшими имеют:');
  writeln(other.Select(v -> v.ToString).JoinIntoString(NewLine));
end.

var avgBest := Students.Take(M).Select(v -> v.Assessments.Average());

  Students := Students.OrderBy(v -> v.Assessments.Average()).ToArray();
  
  writeln('Worst average:');
  var avgWorst := Students.Take(M).Select(v -> v.Assessments.Average());
  writeln(Students.Take(M).Select(v -> v.ToString).JoinIntoString(NewLine));
  
  var other := Students.Skip(M).Where(v -> avgWorst.Contains(v.Assessments.Average));
  writeln('Кроме этого, средние баллы, совпадающие с худшими имеют:');
  writeln(other.Select(v -> v.ToString).JoinIntoString(NewLine));